/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / database / powerbase / studentrec / !ALevel / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e 20 f4 20 3e | 3c 41 4c 65 76 65 6c 24 |.... . >|<ALevel$|
|00000010| 44 69 72 3e 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |Dir>.!Ru|nImage..|
|00000020| 14 06 20 f4 0d 00 1e 1c | 20 f4 20 21 52 75 6e 49 |.. .....| . !RunI|
|00000030| 6d 61 67 65 20 66 6f 72 | 20 21 41 4c 65 76 65 6c |mage for| !ALevel|
|00000040| 0d 00 28 06 20 f4 0d 00 | 32 14 20 f4 20 a9 20 44 |..(. ...|2. . . D|
|00000050| 2e 4c 2e 20 48 61 73 6c | 61 6d 0d 00 3c 06 20 3a |.L. Hasl|am..<. :|
|00000060| 0d 00 46 22 20 76 65 72 | 73 69 6f 6e 24 3d 22 32 |..F" ver|sion$="2|
|00000070| 2e 30 30 20 28 31 32 2d | 41 75 67 2d 31 39 39 32 |.00 (12-|Aug-1992|
|00000080| 29 22 0d 00 50 2d 20 69 | 6e 74 76 65 72 73 69 6f |)"..P- i|ntversio|
|00000090| 6e 24 3d 22 49 6e 74 65 | 72 66 61 63 65 20 4d 61 |n$="Inte|rface Ma|
|000000a0| 6e 61 67 65 72 20 28 76 | 2e 32 2e 30 30 29 22 0d |nager (v|.2.00)".|
|000000b0| 00 5a 06 20 3a 0d 00 64 | 24 20 f4 20 48 65 61 70 |.Z. :..d|$ . Heap|
|000000c0| 20 4d 61 6e 61 67 65 72 | 20 28 6d 6f 64 75 6c 65 | Manager| (module|
|000000d0| 20 2b 20 42 41 53 49 43 | 29 0d 00 6e 14 20 f4 20 | + BASIC|)..n. . |
|000000e0| a9 20 53 2e 52 2e 20 48 | 61 73 6c 61 6d 0d 00 78 |. S.R. H|aslam..x|
|000000f0| 06 20 3a 0d 00 82 22 20 | f4 20 49 6e 74 65 72 66 |. :..." |. Interf|
|00000100| 61 63 65 20 4d 61 6e 61 | 67 65 72 20 28 76 2e 20 |ace Mana|ger (v. |
|00000110| 32 2e 30 30 29 0d 00 8c | 19 20 f4 20 a9 20 53 69 |2.00)...|. . . Si|
|00000120| 6d 6f 6e 20 48 75 6e 74 | 69 6e 67 64 6f 6e 0d 00 |mon Hunt|ingdon..|
|00000130| 96 06 20 3a 0d 00 a0 17 | 20 f4 20 49 6d 70 75 6c |.. :....| . Impul|
|00000140| 73 65 49 49 20 6d 6f 64 | 75 6c 65 0d 00 aa 1a 20 |seII mod|ule.... |
|00000150| f4 20 a9 20 43 6f 6d 70 | 75 74 65 72 20 43 6f 6e |. . Comp|uter Con|
|00000160| 63 65 70 74 73 0d 00 b4 | 06 20 3a 0d 00 be 21 20 |cepts...|. :...! |
|00000170| 6d 6f 61 6e 5f 65 72 72 | 25 3d 32 35 34 3a 66 61 |moan_err|%=254:fa|
|00000180| 74 61 6c 5f 65 72 72 25 | 3d 32 35 35 0d 00 c8 49 |tal_err%|=255...I|
|00000190| 20 ee 20 85 3a ee 20 85 | 20 87 3a 85 20 9f 2c 22 | . .:. .| .:. .,"|
|000001a0| 4c 30 20 65 72 72 6f 72 | 3a 20 22 2b f6 24 2b 22 |L0 error|: "+.$+"|
|000001b0| 20 64 75 72 69 6e 67 20 | 69 6e 69 74 69 61 6c 69 | during |initiali|
|000001c0| 73 61 74 69 6f 6e 20 61 | 74 20 6c 69 6e 65 20 22 |sation a|t line "|
|000001d0| 2b c3 28 9e 29 0d 00 d2 | 10 20 6e 65 78 74 66 69 |+.(.)...|. nextfi|
|000001e0| 6c 65 25 3d 30 0d 00 dc | 0f 20 70 72 65 73 65 6e |le%=0...|. presen|
|000001f0| 74 25 3d a3 0d 00 e6 0b | 20 f2 73 65 74 75 70 0d |t%=.....| .setup.|
|00000200| 00 f0 2f 20 e7 20 62 75 | 66 66 25 3e 65 6e 64 62 |../ . bu|ff%>endb|
|00000210| 75 66 66 25 20 8c 20 85 | 20 30 2c 22 4e 6f 20 72 |uff% . .| 0,"No r|
|00000220| 6f 6f 6d 20 66 6f 72 20 | 64 65 66 73 2e 22 0d 00 |oom for |defs."..|
|00000230| fa 33 20 e7 20 6d 65 6e | 75 5f 70 74 72 25 3e 6d |.3 . men|u_ptr%>m|
|00000240| 65 6e 5f 65 6e 64 25 20 | 8c 20 85 20 30 2c 22 4e |en_end% |. . 0,"N|
|00000250| 6f 20 72 6f 6f 6d 20 66 | 6f 72 20 6d 65 6e 75 73 |o room f|or menus|
|00000260| 22 0d 01 04 19 20 f2 6f | 70 65 6e 5f 77 69 6e 64 |".... .o|pen_wind|
|00000270| 6f 77 28 6d 61 69 6e 57 | 25 29 0d 01 0e 19 20 f2 |ow(mainW|%).... .|
|00000280| 73 65 74 5f 63 61 72 65 | 74 28 6d 61 69 6e 57 25 |set_care|t(mainW%|
|00000290| 2c 31 29 0d 01 18 1e 20 | ee 20 85 20 f2 77 69 6d |,1).... |. . .wim|
|000002a0| 70 5f 65 72 72 6f 72 28 | b9 2c 9f 2c 9e 2c f6 24 |p_error(|.,.,.,.$|
|000002b0| 29 0d 01 22 06 20 f5 0d | 01 2c 0c 20 20 20 f2 70 |)..". ..|.,.   .p|
|000002c0| 6f 6c 6c 0d 01 36 0c 20 | fd 20 71 75 69 74 25 0d |oll..6. |. quit%.|
|000002d0| 01 40 10 20 f2 63 6c 6f | 73 65 5f 64 6f 77 6e 0d |.@. .clo|se_down.|
|000002e0| 01 4a 06 20 e0 0d 01 54 | 06 20 3a 0d 01 5e 06 20 |.J. ...T|. :..^. |
|000002f0| 3a 0d 01 68 06 20 3a 0d | 01 72 0c 20 dd 20 f2 70 |:..h. :.|.r. . .p|
|00000300| 6f 6c 6c 0d 01 7c 28 20 | c8 99 20 22 4f 53 5f 42 |oll..|( |.. "OS_B|
|00000310| 79 74 65 22 2c 32 32 39 | 2c 31 3a c8 99 20 22 4f |yte",229|,1:.. "O|
|00000320| 53 5f 42 79 74 65 22 2c | 31 32 34 0d 01 86 2a 20 |S_Byte",|124...* |
|00000330| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 6d |.. "Wimp|_Poll",m|
|00000340| 61 73 6b 25 2c 62 6c 6f | 63 6b 25 20 b8 20 72 65 |ask%,blo|ck% . re|
|00000350| 61 73 6f 6e 25 0d 01 90 | 29 20 c8 99 20 22 49 6e |ason%...|) .. "In|
|00000360| 74 65 72 66 61 63 65 5f | 50 6f 6c 6c 22 2c 72 65 |terface_|Poll",re|
|00000370| 61 73 6f 6e 25 2c 2c 6d | 79 74 61 73 6b 25 0d 01 |ason%,,m|ytask%..|
|00000380| 9a 11 20 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.. .. re|ason% ..|
|00000390| 01 a4 1b 20 20 20 c9 20 | 31 3a f2 72 65 64 72 61 |...   . |1:.redra|
|000003a0| 77 28 21 62 6c 6f 63 6b | 25 29 0d 01 ae 27 20 20 |w(!block|%)...'  |
|000003b0| 20 c9 20 32 3a c8 99 20 | 22 57 69 6d 70 5f 4f 70 | . 2:.. |"Wimp_Op|
|000003c0| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|000003d0| 25 0d 01 b8 21 20 20 20 | c9 20 33 3a f2 63 6c 6f |%...!   |. 3:.clo|
|000003e0| 73 65 5f 77 69 6e 64 6f | 77 28 21 62 6c 6f 63 6b |se_windo|w(!block|
|000003f0| 25 29 0d 01 c2 41 20 20 | 20 c9 20 36 3a f2 6d 6f |%)...A  | . 6:.mo|
|00000400| 75 73 65 28 62 6c 6f 63 | 6b 25 21 30 2c 62 6c 6f |use(bloc|k%!0,blo|
|00000410| 63 6b 25 21 34 2c 62 6c | 6f 63 6b 25 21 38 2c 62 |ck%!4,bl|ock%!8,b|
|00000420| 6c 6f 63 6b 25 21 31 32 | 2c 62 6c 6f 63 6b 25 21 |lock%!12|,block%!|
|00000430| 31 36 29 0d 01 cc 21 20 | 20 20 c9 20 37 3a f2 65 |16)...! |  . 7:.e|
|00000440| 6e 64 5f 64 72 61 67 28 | 53 74 61 72 74 25 2c 45 |nd_drag(|Start%,E|
|00000450| 6e 64 25 29 0d 01 d6 17 | 20 20 20 c9 20 38 3a f2 |nd%)....|   . 8:.|
|00000460| 70 72 6f 63 65 73 73 5f | 6b 65 79 0d 01 e0 17 20 |process_|key.... |
|00000470| 20 20 c9 20 39 3a f2 6d | 65 6e 75 5f 73 65 6c 65 |  . 9:.m|enu_sele|
|00000480| 63 74 0d 01 ea 0f 20 20 | 20 c9 20 31 37 2c 31 38 |ct....  | . 17,18|
|00000490| 3a 0d 01 f4 66 20 20 20 | c8 99 20 22 49 6d 70 75 |:...f   |.. "Impu|
|000004a0| 6c 73 65 5f 44 65 63 6f | 64 65 22 2c 72 65 61 73 |lse_Deco|de",reas|
|000004b0| 6f 6e 25 2c 62 6c 6f 63 | 6b 25 2c 2c 2c 2c 6d 65 |on%,bloc|k%,,,,me|
|000004c0| 74 68 6f 64 74 61 62 6c | 65 25 2c 6d 79 74 61 73 |thodtabl|e%,mytas|
|000004d0| 6b 25 20 b8 20 72 65 61 | 73 6f 6e 25 2c 2c 2c 2c |k% . rea|son%,,,,|
|000004e0| 2c 74 6f 6b 65 6e 25 2c | 70 61 72 61 6d 73 25 2c |,token%,|params%,|
|000004f0| 6f 62 6a 65 63 74 25 0d | 01 fe 18 20 20 20 e7 20 |object%.|...   . |
|00000500| 72 65 61 73 6f 6e 25 3e | 3d 26 32 30 30 20 8c 0d |reason%>|=&200 ..|
|00000510| 02 08 15 20 20 20 20 20 | c8 8e 20 72 65 61 73 6f |...     |.. reaso|
|00000520| 6e 25 20 ca 0d 02 12 4e | 20 20 20 20 20 20 20 c9 |n% ....N|       .|
|00000530| 20 26 32 30 30 2c 26 32 | 30 31 3a e7 20 74 6f 6b | &200,&2|01:. tok|
|00000540| 65 6e 25 3c 3e 2d 31 20 | 8c 20 f2 49 6d 70 75 6c |en%<>-1 |. .Impul|
|00000550| 73 65 5f 63 6f 6d 6d 61 | 6e 64 28 74 6f 6b 65 6e |se_comma|nd(token|
|00000560| 25 2c 70 61 72 61 6d 73 | 25 2c 6f 62 6a 65 63 74 |%,params|%,object|
|00000570| 25 29 0d 02 1c 30 20 20 | 20 20 20 20 20 c9 20 26 |%)...0  |     . &|
|00000580| 32 30 32 3a f2 49 6d 70 | 75 6c 73 65 5f 72 65 70 |202:.Imp|ulse_rep|
|00000590| 6c 79 28 74 6f 6b 65 6e | 25 2c 70 61 72 61 6d 73 |ly(token|%,params|
|000005a0| 25 29 0d 02 26 33 20 20 | 20 20 20 20 20 c9 20 26 |%)..&3  |     . &|
|000005b0| 32 30 34 3a f2 49 6d 70 | 75 6c 73 65 5f 72 65 63 |204:.Imp|ulse_rec|
|000005c0| 65 69 76 65 28 70 61 72 | 61 6d 73 25 2c 6f 62 6a |eive(par|ams%,obj|
|000005d0| 65 63 74 25 29 0d 02 30 | 0a 20 20 20 20 20 cb 0d |ect%)..0|.     ..|
|000005e0| 02 3a 11 20 20 20 cc 20 | f2 6d 65 73 73 61 67 65 |.:.   . |.message|
|000005f0| 0d 02 44 08 20 20 20 cd | 0d 02 4e 1d 20 20 20 c9 |..D.   .|..N.   .|
|00000600| 20 31 39 3a f2 6e 6f 74 | 5f 61 63 6b 6e 6f 77 6c | 19:.not|_acknowl|
|00000610| 65 64 67 65 64 0d 02 58 | 06 20 cb 0d 02 62 06 20 |edged..X|. ...b. |
|00000620| e1 0d 02 6c 06 20 3a 0d | 02 76 06 20 3a 0d 02 80 |...l. :.|.v. :...|
|00000630| 06 20 3a 0d 02 8a 4a 20 | f4 20 2d 2d 2d 2d 2d 2d |. :...J |. ------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 53 |--------|------ S|
|00000650| 68 75 74 64 6f 77 6e 20 | 72 6f 75 74 69 6e 65 73 |hutdown |routines|
|00000660| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 02 94 |--------|-----...|
|00000680| 06 20 3a 0d 02 9e 12 20 | dd 20 f2 63 6c 6f 73 65 |. :.... |. .close|
|00000690| 5f 64 6f 77 6e 0d 02 a8 | 09 20 ea 20 46 25 0d 02 |_down...|. . F%..|
|000006a0| b2 08 20 ea 20 85 0d 02 | bc 51 20 ee 20 85 20 ea |.. . ...|.Q . . .|
|000006b0| 20 24 62 6c 6f 63 6b 25 | 3d 22 54 41 53 4b 22 3a | $block%|="TASK":|
|000006c0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|000006d0| 77 6e 22 2c 6d 79 74 61 | 73 6b 25 2c 21 62 6c 6f |wn",myta|sk%,!blo|
|000006e0| 63 6b 25 3a eb 20 31 32 | 3a f6 3a f1 20 22 20 40 |ck%:. 12|:.:. " @|
|000006f0| 20 23 22 3b 9e 3a e0 0d | 02 c6 0a 20 f2 65 78 69 | #";.:..|... .exi|
|00000700| 74 0d 02 d0 09 20 f2 65 | 6e 64 0d 02 da 06 20 e1 |t.... .e|nd.... .|
|00000710| 0d 02 e4 06 20 3a 0d 02 | ee 0c 20 dd 20 f2 65 78 |.... :..|.. . .ex|
|00000720| 69 74 0d 02 f8 09 20 ea | 20 49 25 0d 03 02 19 20 |it.... .| I%.... |
|00000730| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 53 6d |.. "Hour|glass_Sm|
|00000740| 61 73 68 22 0d 03 0c 12 | 20 f2 68 69 64 65 5f 77 |ash"....| .hide_w|
|00000750| 69 6e 64 6f 77 73 0d 03 | 16 14 20 f2 72 65 63 6f |indows..|.. .reco|
|00000760| 76 65 72 5f 6d 65 6d 6f | 72 79 0d 03 20 0f 20 f2 |ver_memo|ry.. . .|
|00000770| 69 6e 69 74 5f 76 61 72 | 73 0d 03 2a 17 20 f2 6c |init_var|s..*. .l|
|00000780| 69 74 28 6d 65 6e 75 25 | 28 31 29 2c 30 2c b9 29 |it(menu%|(1),0,.)|
|00000790| 0d 03 34 17 20 f2 6c 69 | 74 28 6d 65 6e 75 25 28 |..4. .li|t(menu%(|
|000007a0| 31 29 2c 31 2c b9 29 0d | 03 3e 17 20 f2 6c 69 74 |1),1,.).|.>. .lit|
|000007b0| 28 6d 65 6e 75 25 28 31 | 29 2c 32 2c b9 29 0d 03 |(menu%(1|),2,.)..|
|000007c0| 48 0c 20 65 78 69 74 25 | 3d b9 0d 03 52 06 20 e1 |H. exit%|=...R. .|
|000007d0| 0d 03 5c 06 20 3a 0d 03 | 66 1d 20 dd 20 f2 63 6c |..\. :..|f. . .cl|
|000007e0| 6f 73 65 5f 66 69 6c 65 | 28 f8 20 68 61 6e 64 6c |ose_file|(. handl|
|000007f0| 65 25 29 0d 03 70 12 20 | e7 20 68 61 6e 64 6c 65 |e%)..p. |. handle|
|00000800| 25 3e 30 20 8c 0d 03 7a | 10 20 20 20 d9 23 68 61 |%>0 ...z|.   .#ha|
|00000810| 6e 64 6c 65 25 0d 03 84 | 10 20 20 20 68 61 6e 64 |ndle%...|.   hand|
|00000820| 6c 65 25 3d 30 0d 03 8e | 06 20 cd 0d 03 98 06 20 |le%=0...|. ..... |
|00000830| e1 0d 03 a2 06 20 3a 0d | 03 ac 15 dd 20 f2 72 65 |..... :.|.... .re|
|00000840| 63 6f 76 65 72 5f 6d 65 | 6d 6f 72 79 0d 03 b6 08 |cover_me|mory....|
|00000850| ea 20 49 25 0d 03 c0 34 | f2 73 63 72 61 70 5f 73 |. I%...4|.scrap_s|
|00000860| 6c 69 64 69 6e 67 5f 62 | 6c 6f 63 6b 28 74 65 78 |liding_b|lock(tex|
|00000870| 74 61 6e 63 68 6f 72 25 | 29 3a 21 74 65 78 74 61 |tanchor%|):!texta|
|00000880| 6e 63 68 6f 72 25 3d 30 | 0d 03 ca 15 e3 20 49 25 |nchor%=0|..... I%|
|00000890| 3d 30 20 b8 20 4d 61 78 | 54 61 62 73 25 0d 03 d4 |=0 . Max|Tabs%...|
|000008a0| 3c 20 20 f2 73 63 72 61 | 70 5f 73 6c 69 64 69 6e |<  .scra|p_slidin|
|000008b0| 67 5f 62 6c 6f 63 6b 28 | 74 61 62 61 6e 63 68 6f |g_block(|tabancho|
|000008c0| 72 25 28 49 25 29 29 3a | 21 74 61 62 61 6e 63 68 |r%(I%)):|!tabanch|
|000008d0| 6f 72 25 28 49 25 29 3d | 30 0d 03 de 08 ed 20 49 |or%(I%)=|0..... I|
|000008e0| 25 0d 03 e8 05 e1 0d 03 | f2 06 20 3a 0d 03 fc 0b |%.......|.. :....|
|000008f0| 20 dd 20 f2 65 6e 64 0d | 04 06 25 20 c8 99 20 22 | . .end.|..% .. "|
|00000900| 49 6e 74 65 72 66 61 63 | 65 5f 43 6c 6f 73 65 44 |Interfac|e_CloseD|
|00000910| 6f 77 6e 22 2c 6d 79 74 | 61 73 6b 25 0d 04 10 23 |own",myt|ask%...#|
|00000920| 20 c8 99 20 22 49 6d 70 | 75 6c 73 65 5f 43 6c 6f | .. "Imp|ulse_Clo|
|00000930| 73 65 44 6f 77 6e 22 2c | 6d 79 74 61 73 6b 25 0d |seDown",|mytask%.|
|00000940| 04 1a 13 20 24 62 6c 6f | 63 6b 25 3d 22 54 41 53 |... $blo|ck%="TAS|
|00000950| 4b 22 0d 04 24 28 20 c8 | 99 20 22 57 69 6d 70 5f |K"..$( .|. "Wimp_|
|00000960| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 6d 79 74 61 73 |CloseDow|n",mytas|
|00000970| 6b 25 2c 21 62 6c 6f 63 | 6b 25 0d 04 2e 06 20 e0 |k%,!bloc|k%.... .|
|00000980| 0d 04 38 06 20 e1 0d 04 | 42 06 20 3a 0d 04 4c 48 |..8. ...|B. :..LH|
|00000990| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|000009a0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 53 68 75 74 64 |--- End |of Shutd|
|000009b0| 6f 77 6e 20 72 6f 75 74 | 69 6e 65 73 20 2d 2d 2d |own rout|ines ---|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 0d 04 56 05 | 3a 0d 04 60 05 3a 0d 04 |----..V.|:..`.:..|
|000009e0| 6a 05 3a 0d 04 74 48 f4 | 20 2d 2d 2d 2d 2d 2d 2d |j.:..tH.| -------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|00000a00| 72 72 6f 72 20 68 61 6e | 64 6c 69 6e 67 20 2d 2d |rror han|dling --|
|00000a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 04 7e 05 3a |--------|---..~.:|
|00000a30| 0d 04 88 29 dd 20 f2 77 | 69 6d 70 5f 65 72 72 6f |...). .w|imp_erro|
|00000a40| 72 28 72 65 74 75 72 6e | 25 2c 65 72 72 25 2c 65 |r(return|%,err%,e|
|00000a50| 72 6c 25 2c 65 72 72 24 | 29 0d 04 92 13 ea 20 74 |rl%,err$|)..... t|
|00000a60| 79 70 65 25 2c 72 65 73 | 75 6c 74 25 0d 04 9c 07 |ype%,res|ult%....|
|00000a70| ea 20 85 0d 04 a6 55 ee | 20 85 20 ea 20 ee 20 85 |. ....U.| . . . .|
|00000a80| 20 87 3a f2 63 6c 6f 73 | 65 5f 64 6f 77 6e 3a 85 | .:.clos|e_down:.|
|00000a90| 20 9f 2c 22 4c 30 20 65 | 72 72 6f 72 3a 20 22 2b | .,"L0 e|rror: "+|
|00000aa0| f6 24 2b 22 20 64 75 72 | 69 6e 67 20 65 72 72 6f |.$+" dur|ing erro|
|00000ab0| 72 20 68 61 6e 64 6c 65 | 72 20 61 74 20 6c 69 6e |r handle|r at lin|
|00000ac0| 65 20 22 2b c3 28 9e 29 | 0d 04 b0 1e c8 99 20 22 |e "+.(.)|...... "|
|00000ad0| 57 69 6d 70 5f 43 6f 6d | 6d 61 6e 64 57 69 6e 64 |Wimp_Com|mandWind|
|00000ae0| 6f 77 22 2c 2d 31 0d 04 | ba 11 62 6c 6f 63 6b 25 |ow",-1..|..block%|
|00000af0| 21 30 3d 65 72 72 25 0d | 04 c4 22 e7 20 72 65 74 |!0=err%.|..". ret|
|00000b00| 75 72 6e 25 20 80 20 65 | 72 72 25 3c 3e 66 61 74 |urn% . e|rr%<>fat|
|00000b10| 61 6c 5f 65 72 72 25 20 | 8c 0d 04 ce 19 20 20 20 |al_err% |.....   |
|00000b20| e7 20 65 72 72 25 3d 6d | 6f 61 6e 5f 65 72 72 25 |. err%=m|oan_err%|
|00000b30| 20 8c 0d 04 d8 3c 20 20 | 20 20 20 20 74 79 70 65 | ....<  |    type|
|00000b40| 25 3d 26 31 31 3a f4 20 | 4f 4b 20 62 75 74 74 6f |%=&11:. |OK butto|
|00000b50| 6e 20 61 6e 64 20 6e 6f | 20 22 45 72 72 6f 72 20 |n and no| "Error |
|00000b60| 66 72 6f 6d 22 20 69 6e | 20 74 69 74 6c 65 0d 04 |from" in| title..|
|00000b70| e2 08 20 20 20 cc 0d 04 | ec 29 20 20 20 20 20 20 |..   ...|.)      |
|00000b80| 74 79 70 65 25 3d 33 3a | f4 20 4f 4b 20 61 6e 64 |type%=3:|. OK and|
|00000b90| 20 43 61 6e 63 65 6c 20 | 62 75 74 74 6f 6e 73 0d | Cancel |buttons.|
|00000ba0| 04 f6 42 20 20 20 20 20 | 20 65 72 72 24 2b 3d 22 |..B     | err$+="|
|00000bb0| 20 61 74 20 22 2b c3 28 | 65 72 6c 25 29 2b 22 20 | at "+.(|erl%)+" |
|00000bc0| 28 4f 4b 20 74 6f 20 63 | 6f 6e 74 69 6e 75 65 2c |(OK to c|ontinue,|
|00000bd0| 20 43 61 6e 63 65 6c 20 | 74 6f 20 71 75 69 74 29 | Cancel |to quit)|
|00000be0| 22 0d 05 00 08 20 20 20 | cd 0d 05 0a 05 cc 0d 05 |"....   |........|
|00000bf0| 14 1e 20 20 20 74 79 70 | 65 25 3d 32 3a f4 20 43 |..   typ|e%=2:. C|
|00000c00| 61 6e 63 65 6c 20 62 75 | 74 74 6f 6d 0d 05 1e 39 |ancel bu|ttom...9|
|00000c10| 20 20 20 65 72 72 24 2b | 3d 22 20 61 74 20 22 2b |   err$+|=" at "+|
|00000c20| c3 28 65 72 6c 25 29 2b | 22 20 28 41 4c 65 76 65 |.(erl%)+|" (ALeve|
|00000c30| 6c 20 6d 75 73 74 20 71 | 75 69 74 20 61 74 20 6f |l must q|uit at o|
|00000c40| 6e 63 65 29 22 0d 05 28 | 05 cd 0d 05 32 19 24 28 |nce)"..(|....2.$(|
|00000c50| 62 6c 6f 63 6b 25 2b 34 | 29 3d 65 72 72 24 2b bd |block%+4|)=err$+.|
|00000c60| 28 30 29 0d 05 3c 3a c8 | 99 20 22 57 69 6d 70 5f |(0)..<:.|. "Wimp_|
|00000c70| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 6c 6f |ReportEr|ror",blo|
|00000c80| 63 6b 25 2c 74 79 70 65 | 25 2c 22 41 4c 65 76 65 |ck%,type|%,"ALeve|
|00000c90| 6c 22 20 b8 20 2c 72 65 | 73 75 6c 74 25 0d 05 46 |l" . ,re|sult%..F|
|00000ca0| 39 f4 20 72 65 73 75 6c | 74 3d 31 20 6d 65 61 6e |9. resul|t=1 mean|
|00000cb0| 73 20 4f 4b 20 73 65 6c | 65 63 74 65 64 2c 20 32 |s OK sel|ected, 2|
|00000cc0| 20 6d 65 61 6e 73 20 43 | 61 6e 63 65 6c 20 73 65 | means C|ancel se|
|00000cd0| 6c 65 63 74 65 64 0d 05 | 50 11 e7 20 72 65 73 75 |lected..|P.. resu|
|00000ce0| 6c 74 25 3d 32 20 8c 0d | 05 5a 12 20 20 20 f2 63 |lt%=2 ..|.Z.   .c|
|00000cf0| 6c 6f 73 65 5f 64 6f 77 | 6e 0d 05 64 08 20 20 20 |lose_dow|n..d.   |
|00000d00| e0 0d 05 6e 05 cd 0d 05 | 78 07 f7 20 85 0d 05 82 |...n....|x.. ....|
|00000d10| 05 e1 0d 05 8c 06 20 3a | 0d 05 96 47 20 f4 20 2d |...... :|...G . -|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000d30| 45 6e 64 20 6f 66 20 65 | 72 72 6f 72 20 68 61 6e |End of e|rror han|
|00000d40| 64 6c 69 6e 67 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |dling --|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000d60| 05 a0 06 20 3a 0d 05 aa | 06 20 3a 0d 05 b4 06 20 |... :...|. :.... |
|00000d70| 3a 0d 05 be 46 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |:...F . |--------|
|00000d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 50 72 6f 67 72 61 |--------|- Progra|
|00000d90| 6d 20 69 6e 69 74 69 61 | 6c 69 73 61 74 69 6f 6e |m initia|lisation|
|00000da0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 0d | 05 c8 06 20 3a 0d 05 d2 |-------.|... :...|
|00000dc0| 0d 20 dd 20 f2 73 65 74 | 75 70 0d 05 dc 19 20 ea |. . .set|up.... .|
|00000dd0| 20 41 25 2c 49 25 2c 4a | 25 2c 56 25 2c 76 61 6c | A%,I%,J|%,V%,val|
|00000de0| 69 64 24 0d 05 e6 1f 20 | 46 3d 8e 28 22 3c 41 4c |id$.... |F=.("<AL|
|00000df0| 65 76 65 6c 24 44 69 72 | 3e 2e 43 6f 6e 66 69 67 |evel$Dir|>.Config|
|00000e00| 22 29 0d 05 f0 14 20 4d | 61 78 53 75 62 73 25 3d |").... M|axSubs%=|
|00000e10| bb 28 be 23 46 29 0d 05 | fa 13 20 f2 63 6c 6f 73 |.(.#F)..|.. .clos|
|00000e20| 65 5f 66 69 6c 65 28 46 | 29 0d 06 04 0f 20 4d 61 |e_file(F|).... Ma|
|00000e30| 78 54 61 62 73 25 3d 32 | 0d 06 0e 10 20 f2 64 69 |xTabs%=2|.... .di|
|00000e40| 6d 5f 61 72 72 61 79 73 | 0d 06 18 0f 20 f2 69 6e |m_arrays|.... .in|
|00000e50| 69 74 5f 76 61 72 73 0d | 06 22 46 20 f4 20 2d 2d |it_vars.|."F . --|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 20 49 6e 69 74 69 61 6c | 69 73 65 20 57 69 6d 70 | Initial|ise Wimp|
|00000e80| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 06 2c |--------|-----..,|
|00000ea0| 13 20 24 62 6c 6f 63 6b | 25 3d 22 54 41 53 4b 22 |. $block|%="TASK"|
|00000eb0| 0d 06 36 28 20 6d 61 73 | 6b 25 3d 28 31 3c 3c 34 |..6( mas|k%=(1<<4|
|00000ec0| 29 2b 28 31 3c 3c 35 29 | 2b 28 31 3c 3c 31 31 29 |)+(1<<5)|+(1<<11)|
|00000ed0| 2b 28 31 3c 3c 31 32 29 | 0d 06 40 41 20 c8 99 20 |+(1<<12)|..@A .. |
|00000ee0| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00000ef0| 22 2c 32 30 30 2c 21 62 | 6c 6f 63 6b 25 2c 22 41 |",200,!b|lock%,"A|
|00000f00| 4c 65 76 65 6c 22 20 b8 | 20 76 65 72 73 69 6f 6e |Level" .| version|
|00000f10| 25 2c 6d 79 74 61 73 6b | 25 0d 06 4a 34 20 c8 99 |%,mytask|%..J4 ..|
|00000f20| 20 22 49 6d 70 75 6c 73 | 65 5f 49 6e 69 74 69 61 | "Impuls|e_Initia|
|00000f30| 6c 69 73 65 22 2c 30 30 | 33 2c 6d 79 74 61 73 6b |lise",00|3,mytask|
|00000f40| 25 2c 22 41 4c 65 76 65 | 6c 22 2c 2d 31 0d 06 54 |%,"ALeve|l",-1..T|
|00000f50| 26 20 c8 99 20 22 49 6e | 74 65 72 66 61 63 65 5f |& .. "In|terface_|
|00000f60| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 6d 79 74 61 |Initiali|se",myta|
|00000f70| 73 6b 25 0d 06 5e 3e 20 | 61 70 70 69 63 6f 6e 25 |sk%..^> |appicon%|
|00000f80| 3d a4 63 72 65 61 74 65 | 5f 69 63 6f 6e 28 2d 31 |=.create|_icon(-1|
|00000f90| 2c 30 2c 30 2c 36 38 2c | 37 32 2c 26 33 30 30 32 |,0,0,68,|72,&3002|
|00000fa0| 2c 22 21 41 4c 65 76 65 | 6c 22 2c 30 2c 30 2c 30 |,"!ALeve|l",0,0,0|
|00000fb0| 29 0d 06 68 39 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |)..h9. -|--------|
|00000fc0| 20 53 65 74 20 75 70 20 | 48 65 61 70 20 4d 61 6e | Set up |Heap Man|
|00000fd0| 61 67 65 72 20 26 20 61 | 6e 63 68 6f 72 73 20 2d |ager & a|nchors -|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 06 72 17 f2 69 |--------|--..r..i|
|00000ff0| 6e 69 74 68 65 61 70 73 | 28 31 32 38 2c 31 32 38 |nitheaps|(128,128|
|00001000| 29 0d 06 7c 26 74 65 78 | 74 61 6e 63 68 6f 72 25 |)..|&tex|tanchor%|
|00001010| 3d a4 63 72 65 61 74 65 | 5f 61 6e 63 68 6f 72 28 |=.create|_anchor(|
|00001020| 22 54 65 78 74 22 29 0d | 06 86 15 e3 20 49 25 3d |"Text").|.... I%=|
|00001030| 30 20 b8 20 4d 61 78 54 | 61 62 73 25 0d 06 90 36 |0 . MaxT|abs%...6|
|00001040| 20 20 20 74 61 62 61 6e | 63 68 6f 72 25 28 49 25 |   taban|chor%(I%|
|00001050| 29 3d a4 63 72 65 61 74 | 65 5f 61 6e 63 68 6f 72 |)=.creat|e_anchor|
|00001060| 28 22 56 54 61 62 6c 65 | 20 23 22 2b c3 28 49 25 |("VTable| #"+.(I%|
|00001070| 29 29 0d 06 9a 08 ed 20 | 49 25 0d 06 a4 45 f4 20 |))..... |I%...E. |
|00001080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001090| 2d 2d 2d 2d 2d 20 4d 65 | 74 68 6f 64 20 73 74 72 |----- Me|thod str|
|000010a0| 75 63 74 75 72 65 73 20 | 2d 2d 2d 2d 2d 2d 2d 2d |uctures |--------|
|000010b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000010c0| 06 ae 14 e3 20 50 41 53 | 53 3d 30 20 b8 20 32 20 |.... PAS|S=0 . 2 |
|000010d0| 88 20 32 0d 06 b8 15 20 | 20 50 25 3d 6d 65 74 68 |. 2.... | P%=meth|
|000010e0| 6f 64 74 61 62 6c 65 25 | 0d 06 c2 0f 20 20 5b 4f |odtable%|....  [O|
|000010f0| 50 54 20 50 41 53 53 0d | 06 cc 15 20 20 20 20 20 |PT PASS.|...     |
|00001100| 20 20 20 65 71 75 64 20 | 20 20 20 30 0d 06 d6 26 |   equd |   0...&|
|00001110| 20 20 20 20 20 20 20 20 | a4 6d 65 74 68 6f 64 28 |        |.method(|
|00001120| 30 2c 31 2c 22 50 61 74 | 68 6e 61 6d 65 22 2c 22 |0,1,"Pat|hname","|
|00001130| 22 29 0d 06 e0 20 20 20 | 20 20 20 20 20 20 a4 6d |")...   |      .m|
|00001140| 65 74 68 6f 64 28 2d 31 | 2c 2d 31 2c 22 22 2c 22 |ethod(-1|,-1,"","|
|00001150| 22 29 0d 06 ea 11 20 20 | 20 20 20 20 20 20 61 6c |")....  |      al|
|00001160| 69 67 6e 0d 06 f4 07 20 | 20 5d 0d 06 fe 0a ed 20 |ign.... | ]..... |
|00001170| 50 41 53 53 0d 07 08 2e | f2 67 65 74 73 63 72 65 |PASS....|.getscre|
|00001180| 65 6e 73 69 7a 65 28 53 | 63 72 65 65 6e 57 69 64 |ensize(S|creenWid|
|00001190| 74 68 25 2c 53 63 72 65 | 65 6e 48 65 69 67 68 74 |th%,Scre|enHeight|
|000011a0| 25 29 0d 07 12 13 f2 63 | 72 65 61 74 65 5f 77 69 |%).....c|reate_wi|
|000011b0| 6e 64 6f 77 73 0d 07 1c | 0f f2 6d 61 6b 65 5f 6d |ndows...|..make_m|
|000011c0| 65 6e 75 73 0d 07 26 05 | e1 0d 07 30 05 3a 0d 07 |enus..&.|...0.:..|
|000011d0| 3a 2a dd 20 a4 6d 65 74 | 68 6f 64 28 46 6c 61 67 |:*. .met|hod(Flag|
|000011e0| 73 2c 54 6f 6b 65 6e 2c | 4d 65 74 68 6f 64 24 2c |s,Token,|Method$,|
|000011f0| 53 79 6e 74 61 78 24 29 | 0d 07 44 0d 5b 4f 50 54 |Syntax$)|..D.[OPT|
|00001200| 20 50 41 53 53 0d 07 4e | 19 20 20 20 20 20 20 20 | PASS..N|.       |
|00001210| 20 65 71 75 64 20 20 20 | 20 46 6c 61 67 73 0d 07 | equd   | Flags..|
|00001220| 58 19 20 20 20 20 20 20 | 20 20 65 71 75 64 20 20 |X.      |  equd  |
|00001230| 20 20 54 6f 6b 65 6e 0d | 07 62 1e 20 20 20 20 20 |  Token.|.b.     |
|00001240| 20 20 20 65 71 75 73 20 | 20 20 20 4d 65 74 68 6f |   equs |   Metho|
|00001250| 64 24 2b bd 30 0d 07 6c | 1e 20 20 20 20 20 20 20 |d$+.0..l|.       |
|00001260| 20 65 71 75 73 20 20 20 | 20 53 79 6e 74 61 78 24 | equs   | Syntax$|
|00001270| 2b bd 30 0d 07 76 11 20 | 20 20 20 20 20 20 20 61 |+.0..v. |       a|
|00001280| 6c 69 67 6e 0d 07 80 05 | 5d 0d 07 8a 09 3d 50 41 |lign....|]....=PA|
|00001290| 53 53 0d 07 94 06 20 3a | 0d 07 9e 06 20 3a 0d 07 |SS.... :|.... :..|
|000012a0| a8 13 20 dd 20 a4 72 65 | 61 64 5f 63 6f 6e 66 69 |.. . .re|ad_confi|
|000012b0| 67 0d 07 b2 0c 20 ea 20 | 53 24 2c 50 25 0d 07 bc |g.... . |S$,P%...|
|000012c0| 0b 20 53 24 3d be 23 46 | 0d 07 c6 10 20 50 25 3d |. S$=.#F|.... P%=|
|000012d0| a7 53 24 2c 22 7c 22 29 | 0d 07 d0 36 20 e7 20 50 |.S$,"|")|...6 . P|
|000012e0| 25 3d 30 20 8c 20 85 20 | 32 35 35 2c 22 42 61 64 |%=0 . . |255,"Bad|
|000012f0| 20 65 6e 74 72 79 20 69 | 6e 20 43 6f 6e 66 69 67 | entry i|n Config|
|00001300| 20 66 69 6c 65 3a 20 4e | 6f 20 27 7c 27 22 0d 07 | file: N|o '|'"..|
|00001310| da 0f 20 3d c0 53 24 2c | 50 25 2d 31 29 0d 07 e4 |.. =.S$,|P%-1)...|
|00001320| 06 20 3a 0d 07 ee 12 20 | dd 20 f2 64 69 6d 5f 61 |. :.... |. .dim_a|
|00001330| 72 72 61 79 73 0d 07 f8 | 35 20 de 20 54 61 6b 65 |rrays...|5 . Take|
|00001340| 50 61 73 73 25 28 35 2c | 35 29 2c 47 72 61 64 65 |Pass%(5,|5),Grade|
|00001350| 73 25 28 38 29 2c 52 65 | 73 75 6c 74 73 25 28 4d |s%(8),Re|sults%(M|
|00001360| 61 78 53 75 62 73 25 2c | 38 29 0d 08 02 1a 20 de |axSubs%,|8).... .|
|00001370| 20 6d 65 6e 75 25 28 31 | 29 2c 63 68 6f 69 63 65 | menu%(1|),choice|
|00001380| 24 28 34 29 0d 08 0c 20 | 20 de 20 74 61 62 6c 65 |$(4)... | . table|
|00001390| 24 28 32 29 2c 74 61 62 | 66 69 65 6c 64 6c 65 6e |$(2),tab|fieldlen|
|000013a0| 25 28 39 29 0d 08 16 4b | 20 f4 20 2d 2d 2d 2d 2d |%(9)...K| . -----|
|000013b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000013c0| 41 6c 6c 6f 63 61 74 65 | 20 62 75 66 66 65 72 73 |Allocate| buffers|
|000013d0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000013e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000013f0| 08 20 27 20 69 6e 64 69 | 72 65 63 74 69 6f 6e 6d |. ' indi|rectionm|
|00001400| 65 6d 25 3d 26 36 30 30 | 3a 6d 65 6e 75 6d 65 6d |em%=&600|:menumem|
|00001410| 25 3d 26 31 30 30 0d 08 | 2a 14 20 de 20 4d 69 25 |%=&100..|*. . Mi%|
|00001420| 20 32 30 2c 4d 6f 25 20 | 32 30 0d 08 34 41 20 de | 20,Mo% |20..4A .|
|00001430| 20 62 6c 6f 63 6b 25 20 | 26 34 30 30 2c 73 61 76 | block% |&400,sav|
|00001440| 65 62 75 66 66 25 20 26 | 31 30 30 2c 63 68 6f 69 |ebuff% &|100,choi|
|00001450| 63 65 73 25 20 26 31 30 | 30 2c 6d 65 74 68 6f 64 |ces% &10|0,method|
|00001460| 74 61 62 6c 65 25 20 26 | 31 30 30 0d 08 3e 3b 20 |table% &|100..>; |
|00001470| de 20 62 75 66 66 25 20 | 69 6e 64 69 72 65 63 74 |. buff% |indirect|
|00001480| 69 6f 6e 6d 65 6d 25 3a | 65 6e 64 62 75 66 66 25 |ionmem%:|endbuff%|
|00001490| 3d 62 75 66 66 25 2b 69 | 6e 64 69 72 65 63 74 69 |=buff%+i|ndirecti|
|000014a0| 6f 6e 6d 65 6d 25 0d 08 | 48 43 20 de 20 6d 65 6e |onmem%..|HC . men|
|000014b0| 62 6c 6b 25 20 6d 65 6e | 75 6d 65 6d 25 3a 6d 65 |blk% men|umem%:me|
|000014c0| 6e 5f 65 6e 64 25 3d 6d | 65 6e 62 6c 6b 25 2b 6d |n_end%=m|enblk%+m|
|000014d0| 65 6e 75 6d 65 6d 25 3a | 6d 65 6e 75 5f 70 74 72 |enumem%:|menu_ptr|
|000014e0| 25 3d 6d 65 6e 62 6c 6b | 25 0d 08 52 16 20 de 20 |%=menblk|%..R. . |
|000014f0| 74 72 61 6e 73 62 75 66 | 66 25 20 26 31 30 30 0d |transbuf|f% &100.|
|00001500| 08 5c 1b 20 de 20 74 61 | 62 61 6e 63 68 6f 72 25 |.\. . ta|banchor%|
|00001510| 28 4d 61 78 54 61 62 73 | 25 29 0d 08 66 27 20 de |(MaxTabs|%)..f' .|
|00001520| 20 68 61 6e 64 25 20 31 | 36 3a 24 68 61 6e 64 25 | hand% 1|6:$hand%|
|00001530| 3d 22 50 70 74 72 5f 68 | 61 6e 64 2c 31 32 2c 38 |="Pptr_h|and,12,8|
|00001540| 22 0d 08 70 2b 20 de 20 | 77 72 69 74 65 70 25 20 |"..p+ . |writep% |
|00001550| 31 36 3a 24 77 72 69 74 | 65 70 25 3d 22 50 70 74 |16:$writ|ep%="Ppt|
|00001560| 72 5f 77 72 69 74 65 2c | 34 2c 34 22 0d 08 7a 2b |r_write,|4,4"..z+|
|00001570| 20 de 20 61 70 70 73 70 | 72 69 74 65 25 20 31 30 | . appsp|rite% 10|
|00001580| 3a 24 61 70 70 73 70 72 | 69 74 65 25 3d 22 53 21 |:$appspr|ite%="S!|
|00001590| 41 4c 65 76 65 6c 22 0d | 08 84 06 20 e1 0d 08 8e |ALevel".|... ....|
|000015a0| 06 20 3a 0d 08 98 11 20 | dd 20 f2 69 6e 69 74 5f |. :.... |. .init_|
|000015b0| 76 61 72 73 0d 08 a2 4c | 20 61 72 65 79 6f 75 74 |vars...L| areyout|
|000015c0| 68 65 72 65 25 3d 31 31 | 32 3a 73 65 6c 65 63 25 |here%=11|2:selec%|
|000015d0| 3d 31 31 33 3a 74 69 74 | 6c 65 25 3d 31 31 34 3a |=113:tit|le%=114:|
|000015e0| 67 65 74 72 65 63 25 3d | 31 31 35 3a f4 20 23 23 |getrec%=|115:. ##|
|000015f0| 23 20 52 65 70 6c 79 20 | 74 61 67 73 20 23 23 23 |# Reply |tags ###|
|00001600| 0d 08 ac 4f 20 75 73 61 | 67 65 25 3d 30 3a f4 20 |...O usa|ge%=0:. |
|00001610| 23 23 23 20 41 76 6f 69 | 64 73 20 6f 76 65 72 77 |### Avoi|ds overw|
|00001620| 72 69 74 69 6e 67 20 73 | 61 76 65 64 20 6c 69 73 |riting s|aved lis|
|00001630| 74 73 20 77 69 74 68 20 | 6f 74 68 65 72 73 20 6f |ts with |others o|
|00001640| 66 20 73 61 6d 65 20 6e | 61 6d 65 20 23 23 23 0d |f same n|ame ###.|
|00001650| 08 b6 0f 20 4d 61 78 54 | 61 62 73 25 3d 32 0d 08 |... MaxT|abs%=2..|
|00001660| c0 1e 20 74 61 62 73 6c | 6f 61 64 65 64 25 3d a3 |.. tabsl|oaded%=.|
|00001670| 3a 72 65 73 70 6f 6e 73 | 65 25 3d a3 0d 08 ca 10 |:respons|e%=.....|
|00001680| 20 4c 65 6e 4c 69 6e 65 | 25 3d 37 37 0d 08 d4 18 | LenLine|%=77....|
|00001690| 20 55 24 3d c4 4c 65 6e | 4c 69 6e 65 25 2d 35 2c | U$=.Len|Line%-5,|
|000016a0| 22 2d 22 29 0d 08 de 19 | 20 55 44 24 3d c4 4c 65 |"-")....| UD$=.Le|
|000016b0| 6e 4c 69 6e 65 25 2d 35 | 2c 22 3d 22 29 0d 08 e8 |nLine%-5|,"=")...|
|000016c0| 0e 20 6c 69 73 74 65 64 | 25 3d a3 0d 08 f2 0e 20 |. listed|%=..... |
|000016d0| 6d 79 72 65 66 25 3d 2d | 31 0d 08 fc 12 20 46 3d |myref%=-|1.... F=|
|000016e0| 30 3a 68 61 6e 64 6c 65 | 25 3d 30 0d 09 06 14 20 |0:handle|%=0.... |
|000016f0| 71 75 69 74 25 3d a3 3a | 65 78 69 74 25 3d a3 0d |quit%=.:|exit%=..|
|00001700| 09 10 14 20 53 74 61 72 | 74 25 3d 30 3a 45 6e 64 |... Star|t%=0:End|
|00001710| 25 3d 30 0d 09 1a 0c 20 | 46 70 74 72 25 3d 30 0d |%=0.... |Fptr%=0.|
|00001720| 09 24 31 20 4c 61 73 74 | 54 61 62 6c 65 25 3d 2d |.$1 Last|Table%=-|
|00001730| 31 3a 54 61 62 6c 65 6e | 75 6d 62 65 72 25 3d 2d |1:Tablen|umber%=-|
|00001740| 31 3a 54 61 62 73 4c 6f | 61 64 65 64 24 3d 22 22 |1:TabsLo|aded$=""|
|00001750| 0d 09 2e 10 20 74 61 62 | 6c 65 24 28 29 3d 22 22 |.... tab|le$()=""|
|00001760| 0d 09 38 20 20 52 6f 77 | 73 25 3d 30 3a 54 61 62 |..8  Row|s%=0:Tab|
|00001770| 46 69 65 6c 64 73 25 3d | 30 3a 52 65 63 25 3d 30 |Fields%=|0:Rec%=0|
|00001780| 0d 09 42 11 20 52 55 25 | 3d 30 3a 52 45 43 25 3d |..B. RU%|=0:REC%=|
|00001790| 30 0d 09 4c 0f 20 e3 20 | 49 25 3d 30 20 b8 20 32 |0..L. . |I%=0 . 2|
|000017a0| 0d 09 56 31 20 20 20 de | 20 41 25 20 33 3a 74 61 |..V1   .| A% 3:ta|
|000017b0| 62 61 6e 63 68 6f 72 25 | 28 49 25 29 3d 41 25 3a |banchor%|(I%)=A%:|
|000017c0| 21 74 61 62 61 6e 63 68 | 6f 72 25 28 49 25 29 3d |!tabanch|or%(I%)=|
|000017d0| 30 0d 09 60 09 20 ed 20 | 49 25 0d 09 6a 06 20 e1 |0..`. . |I%..j. .|
|000017e0| 0d 09 74 06 20 3a 0d 09 | 7e 4a 20 f4 20 2d 2d 2d |..t. :..|~J . ---|
|000017f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 45 |--------|------ E|
|00001800| 6e 64 20 6f 66 20 50 72 | 6f 67 72 61 6d 20 69 6e |nd of Pr|ogram in|
|00001810| 69 74 69 61 6c 69 73 61 | 74 69 6f 6e 20 2d 2d 2d |itialisa|tion ---|
|00001820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001830| 0d 09 88 06 20 3a 0d 09 | 92 06 20 3a 0d 09 9c 06 |.... :..|.. :....|
|00001840| 20 3a 0d 09 a6 4a 20 f4 | 20 2d 2d 2d 2d 2d 2d 2d | :...J .| -------|
|00001850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 4d 65 6e 75 2d |--------|-- Menu-|
|00001860| 72 65 6c 61 74 65 64 20 | 72 6f 75 74 69 6e 65 73 |related |routines|
|00001870| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 b0 06 |--------|----....|
|00001890| 20 3a 0d 09 ba 12 20 dd | 20 f2 6d 61 6b 65 5f 6d | :.... .| .make_m|
|000018a0| 65 6e 75 73 0d 09 c4 09 | 20 ea 20 49 25 0d 09 ce |enus....| . I%...|
|000018b0| 4f 20 6d 65 6e 75 25 28 | 30 29 3d a4 63 72 65 61 |O menu%(|0)=.crea|
|000018c0| 74 65 5f 6d 65 6e 75 28 | 6d 65 6e 75 5f 70 74 72 |te_menu(|menu_ptr|
|000018d0| 25 2c 31 30 30 2c 22 41 | 4c 65 76 65 6c 2c 49 6e |%,100,"A|Level,In|
|000018e0| 66 6f 3e 22 2b c3 28 69 | 6e 66 6f 57 25 29 2b 22 |fo>"+.(i|nfoW%)+"|
|000018f0| 2c 48 65 6c 70 2c 51 75 | 69 74 22 29 0d 09 d8 6d |,Help,Qu|it")...m|
|00001900| 6d 65 6e 75 25 28 31 29 | 3d a4 63 72 65 61 74 65 |menu%(1)|=.create|
|00001910| 5f 6d 65 6e 75 28 6d 65 | 6e 75 5f 70 74 72 25 2c |_menu(me|nu_ptr%,|
|00001920| 32 35 30 2c 22 41 2d 6c | 65 76 65 6c 73 2c 7e 47 |250,"A-l|evels,~G|
|00001930| 65 6e 65 72 61 6c 20 64 | 61 74 61 2c 7e 53 75 62 |eneral d|ata,~Sub|
|00001940| 6a 65 63 74 20 64 61 74 | 61 2c 53 68 6f 77 20 6a |ject dat|a,Show j|
|00001950| 6f 62 73 20 64 6f 6e 65 | 2c 4c 6f 73 65 20 6c 69 |obs done|,Lose li|
|00001960| 73 74 2c 48 65 6c 70 22 | 29 0d 09 e2 12 20 79 62 |st,Help"|).... yb|
|00001970| 61 72 25 3d 39 36 2b 33 | 2a 34 34 0d 09 ec 06 20 |ar%=96+3|*44.... |
|00001980| e1 0d 09 f6 06 20 3a 0d | 0a 00 29 20 dd 20 a4 63 |..... :.|..) . .c|
|00001990| 72 65 61 74 65 5f 6d 65 | 6e 75 28 f8 20 6d 65 6e |reate_me|nu(. men|
|000019a0| 75 25 2c 77 69 64 74 68 | 25 2c 6c 69 73 74 24 29 |u%,width|%,list$)|
|000019b0| 0d 0a 0a 35 20 ea 20 73 | 74 61 72 74 25 2c 63 68 |...5 . s|tart%,ch|
|000019c0| 6f 69 63 65 24 2c 65 6e | 74 72 69 65 73 25 2c 69 |oice$,en|tries%,i|
|000019d0| 74 65 6d 25 2c 50 25 2c | 51 25 2c 53 25 2c 73 68 |tem%,P%,|Q%,S%,sh|
|000019e0| 61 64 65 64 25 0d 0a 14 | 11 20 73 74 61 72 74 25 |aded%...|. start%|
|000019f0| 3d 6d 65 6e 75 25 0d 0a | 1e 13 20 50 25 3d a7 6c |=menu%..|.. P%=.l|
|00001a00| 69 73 74 24 2c 22 2c 22 | 29 0d 0a 28 18 20 24 6d |ist$,","|)..(. $m|
|00001a10| 65 6e 75 25 3d c0 6c 69 | 73 74 24 2c 50 25 2d 31 |enu%=.li|st$,P%-1|
|00001a20| 29 0d 0a 32 1a 20 6d 65 | 6e 75 25 3f 31 32 3d 37 |)..2. me|nu%?12=7|
|00001a30| 3a 6d 65 6e 75 25 3f 31 | 33 3d 32 0d 0a 3c 1a 20 |:menu%?1|3=2..<. |
|00001a40| 6d 65 6e 75 25 3f 31 34 | 3d 37 3a 6d 65 6e 75 25 |menu%?14|=7:menu%|
|00001a50| 3f 31 35 3d 30 0d 0a 46 | 2b 20 6d 65 6e 75 25 21 |?15=0..F|+ menu%!|
|00001a60| 31 36 3d 77 69 64 74 68 | 25 3a 6d 65 6e 75 25 21 |16=width|%:menu%!|
|00001a70| 32 30 3d 34 34 3a 6d 65 | 6e 75 25 21 32 34 3d 30 |20=44:me|nu%!24=0|
|00001a80| 0d 0a 50 13 20 69 74 65 | 6d 25 3d 6d 65 6e 75 25 |..P. ite|m%=menu%|
|00001a90| 2b 32 38 0d 0a 5a 0f 20 | 6c 69 73 74 24 2b 3d 22 |+28..Z. |list$+="|
|00001aa0| 2c 22 0d 0a 64 0f 20 65 | 6e 74 72 69 65 73 25 3d |,"..d. e|ntries%=|
|00001ab0| 30 0d 0a 6e 06 20 f5 0d | 0a 78 0e 20 20 20 51 25 |0..n. ..|.x.   Q%|
|00001ac0| 3d 50 25 2b 31 0d 0a 82 | 18 20 20 20 50 25 3d a7 |=P%+1...|.   P%=.|
|00001ad0| 6c 69 73 74 24 2c 22 2c | 22 2c 51 25 29 0d 0a 8c |list$,",|",Q%)...|
|00001ae0| 0f 20 20 20 e7 20 50 25 | 3e 30 20 8c 0d 0a 96 1b |.   . P%|>0 .....|
|00001af0| 20 20 20 20 20 21 69 74 | 65 6d 25 3d 30 3a 73 68 |     !it|em%=0:sh|
|00001b00| 61 64 65 64 25 3d 30 0d | 0a a0 21 20 20 20 20 20 |aded%=0.|..!     |
|00001b10| 63 68 6f 69 63 65 24 3d | c1 6c 69 73 74 24 2c 51 |choice$=|.list$,Q|
|00001b20| 25 2c 50 25 2d 51 25 29 | 0d 0a aa 40 20 20 20 20 |%,P%-Q%)|...@    |
|00001b30| 20 e7 20 c0 63 68 6f 69 | 63 65 24 2c 31 29 3d 22 | . .choi|ce$,1)="|
|00001b40| 7e 22 20 8c 20 63 68 6f | 69 63 65 24 3d c1 63 68 |~" . cho|ice$=.ch|
|00001b50| 6f 69 63 65 24 2c 32 29 | 3a 73 68 61 64 65 64 25 |oice$,2)|:shaded%|
|00001b60| 3d 28 31 3c 3c 32 32 29 | 0d 0a b4 42 20 20 20 20 |=(1<<22)|...B    |
|00001b70| 20 e7 20 c0 63 68 6f 69 | 63 65 24 2c 31 29 3d 22 | . .choi|ce$,1)="|
|00001b80| 5f 22 20 8c 20 63 68 6f | 69 63 65 24 3d c1 63 68 |_" . cho|ice$=.ch|
|00001b90| 6f 69 63 65 24 2c 32 29 | 3a 3f 69 74 65 6d 25 3d |oice$,2)|:?item%=|
|00001ba0| 3f 69 74 65 6d 25 20 84 | 20 32 0d 0a be 19 20 20 |?item% .| 2....  |
|00001bb0| 20 20 20 53 25 3d a7 63 | 68 6f 69 63 65 24 2c 22 |   S%=.c|hoice$,"|
|00001bc0| 21 22 29 0d 0a c8 36 20 | 20 20 20 20 e7 20 53 25 |!")...6 |    . S%|
|00001bd0| 3e 30 20 8c 20 3f 69 74 | 65 6d 25 3d 3f 69 74 65 |>0 . ?it|em%=?ite|
|00001be0| 6d 25 20 84 20 38 3a c1 | 63 68 6f 69 63 65 24 2c |m% . 8:.|choice$,|
|00001bf0| 53 25 2c 31 29 3d 22 3e | 22 0d 0a d2 19 20 20 20 |S%,1)=">|"....   |
|00001c00| 20 20 53 25 3d a7 63 68 | 6f 69 63 65 24 2c 22 3e |  S%=.ch|oice$,">|
|00001c10| 22 29 0d 0a dc 11 20 20 | 20 20 20 e7 20 53 25 3d |")....  |   . S%=|
|00001c20| 30 20 8c 0d 0a e6 15 20 | 20 20 20 20 20 20 69 74 |0 ..... |      it|
|00001c30| 65 6d 25 21 34 3d 2d 31 | 0d 0a f0 0c 20 20 20 20 |em%!4=-1|....    |
|00001c40| 20 20 20 cc 0d 0a fa 24 | 20 20 20 20 20 20 20 69 |   ....$|       i|
|00001c50| 74 65 6d 25 21 34 3d bb | 28 c1 63 68 6f 69 63 65 |tem%!4=.|(.choice|
|00001c60| 24 2c 53 25 2b 31 29 29 | 0d 0b 04 21 20 20 20 20 |$,S%+1))|...!    |
|00001c70| 20 20 20 63 68 6f 69 63 | 65 24 3d c0 63 68 6f 69 |   choic|e$=.choi|
|00001c80| 63 65 24 2c 53 25 2d 31 | 29 0d 0b 0e 0a 20 20 20 |ce$,S%-1|)....   |
|00001c90| 20 20 cd 0d 0b 18 1b 20 | 20 20 20 20 e7 20 a9 28 |  ..... |    . .(|
|00001ca0| 63 68 6f 69 63 65 24 29 | 3c 3d 31 32 20 8c 0d 0b |choice$)|<=12 ...|
|00001cb0| 22 1e 20 20 20 20 20 20 | 20 24 28 69 74 65 6d 25 |".      | $(item%|
|00001cc0| 2b 31 32 29 3d 63 68 6f | 69 63 65 24 0d 0b 2c 1b |+12)=cho|ice$..,.|
|00001cd0| 20 20 20 20 20 20 20 69 | 74 65 6d 25 21 38 3d 26 |       i|tem%!8=&|
|00001ce0| 37 30 30 30 30 32 31 0d | 0b 36 0c 20 20 20 20 20 |7000021.|.6.     |
|00001cf0| 20 20 cc 0d 0b 40 1a 20 | 20 20 20 20 20 20 4c 25 |  ...@. |      L%|
|00001d00| 3d a9 28 63 68 6f 69 63 | 65 24 29 2b 31 0d 0b 4a |=.(choic|e$)+1..J|
|00001d10| 4a 20 20 20 20 20 20 20 | 69 74 65 6d 25 21 31 32 |J       |item%!12|
|00001d20| 3d 62 75 66 66 25 3a 24 | 62 75 66 66 25 3d 63 68 |=buff%:$|buff%=ch|
|00001d30| 6f 69 63 65 24 3a 62 75 | 66 66 25 2b 3d 4c 25 3a |oice$:bu|ff%+=L%:|
|00001d40| 69 74 65 6d 25 21 31 36 | 3d 2d 31 3a 69 74 65 6d |item%!16|=-1:item|
|00001d50| 25 21 32 30 3d 4c 25 0d | 0b 54 1b 20 20 20 20 20 |%!20=L%.|.T.     |
|00001d60| 20 20 69 74 65 6d 25 21 | 38 3d 26 37 30 30 30 31 |  item%!|8=&70001|
|00001d70| 32 31 0d 0b 5e 0a 20 20 | 20 20 20 cd 0d 0b 68 22 |21..^.  |   ...h"|
|00001d80| 20 20 20 20 20 69 74 65 | 6d 25 21 38 3d 69 74 65 |     ite|m%!8=ite|
|00001d90| 6d 25 21 38 20 84 20 73 | 68 61 64 65 64 25 0d 0b |m%!8 . s|haded%..|
|00001da0| 72 12 20 20 20 20 20 69 | 74 65 6d 25 2b 3d 32 34 |r.     i|tem%+=24|
|00001db0| 0d 0b 7c 14 20 20 20 20 | 20 65 6e 74 72 69 65 73 |..|.    | entries|
|00001dc0| 25 2b 3d 31 0d 0b 86 08 | 20 20 20 cd 0d 0b 90 0b |%+=1....|   .....|
|00001dd0| 20 fd 20 50 25 3d 30 0d | 0b 9a 1e 20 69 74 65 6d | . P%=0.|... item|
|00001de0| 25 21 2d 32 34 3d 69 74 | 65 6d 25 21 2d 32 34 20 |%!-24=it|em%!-24 |
|00001df0| 84 20 26 38 30 0d 0b a4 | 10 20 6d 65 6e 75 25 3d |. &80...|. menu%=|
|00001e00| 69 74 65 6d 25 0d 0b ae | 52 20 e7 20 6d 65 6e 75 |item%...|R . menu|
|00001e10| 25 3e 6d 65 6e 5f 65 6e | 64 25 20 8c 20 85 20 a2 |%>men_en|d% . . .|
|00001e20| 20 30 2c 22 4e 6f 74 20 | 65 6e 6f 75 67 68 20 72 | 0,"Not |enough r|
|00001e30| 6f 6f 6d 20 66 6f 72 20 | 6d 65 6e 75 73 20 28 69 |oom for |menus (i|
|00001e40| 6e 74 65 72 6e 61 6c 20 | 65 72 72 6f 72 20 63 6f |nternal |error co|
|00001e50| 64 65 20 35 30 29 22 0d | 0b b8 0c 20 3d 73 74 61 |de 50)".|... =sta|
|00001e60| 72 74 25 0d 0b c2 06 20 | 3a 0d 0b cc 1c 20 dd 20 |rt%.... |:.... . |
|00001e70| f2 6c 69 74 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |.lit(men|u%,item%|
|00001e80| 2c 6f 6e 25 29 0d 0b d6 | 1c 20 69 74 65 6d 25 3d |,on%)...|. item%=|
|00001e90| 6d 65 6e 75 25 2b 32 38 | 2b 69 74 65 6d 25 2a 32 |menu%+28|+item%*2|
|00001ea0| 34 0d 0b e0 0d 20 c8 8e | 20 6f 6e 25 20 ca 0d 0b |4.... ..| on% ...|
|00001eb0| ea 27 20 20 20 c9 20 b9 | 3a 20 69 74 65 6d 25 21 |.'   . .|: item%!|
|00001ec0| 38 3d 69 74 65 6d 25 21 | 38 20 80 20 ac 20 28 31 |8=item%!|8 . . (1|
|00001ed0| 3c 3c 32 32 29 0d 0b f4 | 25 20 20 20 c9 20 a3 3a |<<22)...|%   . .:|
|00001ee0| 20 69 74 65 6d 25 21 38 | 3d 69 74 65 6d 25 21 38 | item%!8|=item%!8|
|00001ef0| 20 84 20 28 31 3c 3c 32 | 32 29 0d 0b fe 06 20 cb | . (1<<2|2).... .|
|00001f00| 0d 0c 08 06 20 e1 0d 0c | 12 06 20 3a 0d 0c 1c 1e |.... ...|.. :....|
|00001f10| 20 dd 20 f2 73 68 6f 77 | 5f 6d 65 6e 75 28 6d 65 | . .show|_menu(me|
|00001f20| 6e 75 25 2c 78 25 2c 79 | 25 29 0d 0c 26 2a 20 6d |nu%,x%,y|%)..&* m|
|00001f30| 65 6e 75 68 61 6e 64 6c | 65 25 3d 6d 65 6e 75 25 |enuhandl|e%=menu%|
|00001f40| 3a 6d 65 6e 75 78 25 3d | 78 25 3a 6d 65 6e 75 79 |:menux%=|x%:menuy|
|00001f50| 25 3d 79 25 0d 0c 30 26 | 20 c8 99 20 22 57 69 6d |%=y%..0&| .. "Wim|
|00001f60| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00001f70| 65 6e 75 25 2c 78 25 2c | 79 25 0d 0c 3a 06 20 e1 |enu%,x%,|y%..:. .|
|00001f80| 0d 0c 44 06 20 3a 0d 0c | 4e 13 20 dd 20 f2 6d 65 |..D. :..|N. . .me|
|00001f90| 6e 75 5f 73 65 6c 65 63 | 74 0d 0c 58 1c 20 ea 20 |nu_selec|t..X. . |
|00001fa0| 68 61 6e 64 6c 65 25 2c | 50 25 2c 51 25 2c 49 25 |handle%,|P%,Q%,I%|
|00001fb0| 2c 6b 65 79 25 0d 0c 62 | 27 20 63 68 6f 69 63 65 |,key%..b|' choice|
|00001fc0| 31 25 3d 21 62 6c 6f 63 | 6b 25 3a 63 68 6f 69 63 |1%=!bloc|k%:choic|
|00001fd0| 65 32 25 3d 62 6c 6f 63 | 6b 25 21 34 0d 0c 6c 29 |e2%=bloc|k%!4..l)|
|00001fe0| 20 63 68 6f 69 63 65 33 | 25 3d 62 6c 6f 63 6b 25 | choice3|%=block%|
|00001ff0| 21 38 3a 63 68 6f 69 63 | 65 34 25 3d 62 6c 6f 63 |!8:choic|e4%=bloc|
|00002000| 6b 25 21 31 32 0d 0c 76 | 09 20 50 25 3d 31 0d 0c |k%!12..v|. P%=1..|
|00002010| 80 36 20 c8 99 20 22 57 | 69 6d 70 5f 44 65 63 6f |.6 .. "W|imp_Deco|
|00002020| 64 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 68 61 6e |deMenu",|,menuhan|
|00002030| 64 6c 65 25 2c 62 6c 6f | 63 6b 25 2c 63 68 6f 69 |dle%,blo|ck%,choi|
|00002040| 63 65 73 25 0d 0c 8a 0f | 20 e3 20 49 25 3d 31 20 |ces%....| . I%=1 |
|00002050| b8 20 34 0d 0c 94 1e 20 | 20 20 51 25 3d a7 24 63 |. 4.... |  Q%=.$c|
|00002060| 68 6f 69 63 65 73 25 2c | 22 2e 22 2c 50 25 2b 31 |hoices%,|".",P%+1|
|00002070| 29 0d 0c 9e 27 20 20 20 | 63 68 6f 69 63 65 24 28 |)...'   |choice$(|
|00002080| 49 25 29 3d c1 24 63 68 | 6f 69 63 65 73 25 2c 50 |I%)=.$ch|oices%,P|
|00002090| 25 2c 51 25 2d 50 25 29 | 0d 0c a8 0e 20 20 20 50 |%,Q%-P%)|....   P|
|000020a0| 25 3d 51 25 2b 31 0d 0c | b2 09 20 ed 20 49 25 0d |%=Q%+1..|.. . I%.|
|000020b0| 0c bc 25 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |..% .. "|Wimp_Get|
|000020c0| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 62 6c |PointerI|nfo",,bl|
|000020d0| 6f 63 6b 25 0d 0c c6 15 | 20 72 65 64 6f 25 3d 62 |ock%....| redo%=b|
|000020e0| 6c 6f 63 6b 25 21 38 3d | 31 0d 0c d0 15 20 c8 8e |lock%!8=|1.... ..|
|000020f0| 20 6d 65 6e 75 68 61 6e | 64 6c 65 25 20 ca 0d 0c | menuhan|dle% ...|
|00002100| da 12 20 20 20 c9 20 6d | 65 6e 75 25 28 30 29 3a |..   . m|enu%(0):|
|00002110| 0d 0c e4 16 20 20 20 c8 | 8e 20 63 68 6f 69 63 65 |....   .|. choice|
|00002120| 24 28 31 29 20 ca 0d 0c | ee 3a 20 20 20 20 20 c9 |$(1) ...|.:     .|
|00002130| 20 22 48 65 6c 70 22 3a | c8 99 20 22 57 69 6d 70 | "Help":|.. "Wimp|
|00002140| 5f 53 74 61 72 74 54 61 | 73 6b 22 2c 22 3c 41 4c |_StartTa|sk","<AL|
|00002150| 65 76 65 6c 24 44 69 72 | 3e 2e 21 48 65 6c 70 22 |evel$Dir|>.!Help"|
|00002160| 0d 0c f8 19 20 20 20 20 | 20 c9 20 22 51 75 69 74 |....    | . "Quit|
|00002170| 22 3a 71 75 69 74 25 3d | b9 0d 0d 02 08 20 20 20 |":quit%=|.....   |
|00002180| cb 0d 0d 0c 12 20 20 20 | c9 20 6d 65 6e 75 25 28 |.....   |. menu%(|
|00002190| 31 29 3a 0d 0d 16 16 20 | 20 20 c8 8e 20 63 68 6f |1):.... |  .. cho|
|000021a0| 69 63 65 24 28 31 29 20 | ca 0d 0d 20 22 20 20 20 |ice$(1) |... "   |
|000021b0| 20 20 c9 20 22 47 65 6e | 65 72 61 6c 20 64 61 74 |  . "Gen|eral dat|
|000021c0| 61 22 3a f2 67 65 6e 65 | 72 61 6c 0d 0d 2a 23 20 |a":.gene|ral..*# |
|000021d0| 20 20 20 20 c9 20 22 53 | 75 62 6a 65 63 74 20 64 |    . "S|ubject d|
|000021e0| 61 74 61 22 3a f2 73 75 | 62 6a 65 63 74 73 0d 0d |ata":.su|bjects..|
|000021f0| 34 25 20 20 20 20 20 c9 | 20 22 53 68 6f 77 20 6a |4%     .| "Show j|
|00002200| 6f 62 73 20 64 6f 6e 65 | 22 3a 2a 4a 6f 62 73 44 |obs done|":*JobsD|
|00002210| 6f 6e 65 0d 0d 3e 17 20 | 20 20 20 20 c9 20 22 4c |one..>. |    . "L|
|00002220| 6f 73 65 20 6c 69 73 74 | 22 3a 0d 0d 48 2a 20 20 |ose list|":..H*  |
|00002230| 20 20 20 f2 73 63 72 61 | 70 5f 73 6c 69 64 69 6e |   .scra|p_slidin|
|00002240| 67 5f 62 6c 6f 63 6b 28 | 74 65 78 74 61 6e 63 68 |g_block(|textanch|
|00002250| 6f 72 25 29 0d 0d 52 1e | 20 20 20 20 20 f2 63 6c |or%)..R.|     .cl|
|00002260| 6f 73 65 5f 77 69 6e 64 | 6f 77 28 6c 69 73 74 57 |ose_wind|ow(listW|
|00002270| 25 29 0d 0d 5c 12 20 20 | 20 20 20 6c 69 73 74 65 |%)..\.  |   liste|
|00002280| 64 25 3d a3 0d 0d 66 3a | 20 20 20 20 20 c9 20 22 |d%=...f:|     . "|
|00002290| 48 65 6c 70 22 3a c8 99 | 20 22 57 69 6d 70 5f 53 |Help":..| "Wimp_S|
|000022a0| 74 61 72 74 54 61 73 6b | 22 2c 22 3c 41 4c 65 76 |tartTask|","<ALev|
|000022b0| 65 6c 24 44 69 72 3e 2e | 21 48 65 6c 70 22 0d 0d |el$Dir>.|!Help"..|
|000022c0| 70 08 20 20 20 cb 0d 0d | 7a 06 20 cb 0d 0d 84 10 |p.   ...|z. .....|
|000022d0| 20 e7 20 ac 20 71 75 69 | 74 25 20 8c 0d 0d 8e 36 | . . qui|t% ....6|
|000022e0| 20 20 20 e7 20 72 65 64 | 6f 25 20 8c 20 f2 73 68 |   . red|o% . .sh|
|000022f0| 6f 77 5f 6d 65 6e 75 28 | 6d 65 6e 75 68 61 6e 64 |ow_menu(|menuhand|
|00002300| 6c 65 25 2c 6d 65 6e 75 | 78 25 2c 6d 65 6e 75 79 |le%,menu|x%,menuy|
|00002310| 25 29 0d 0d 98 06 20 cd | 0d 0d a2 06 20 e1 0d 0d |%).... .|.... ...|
|00002320| ac 06 20 3a 0d 0d b6 49 | 20 f4 20 2d 2d 2d 2d 2d |.. :...I| . -----|
|00002330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 45 6e 64 20 |--------|--- End |
|00002340| 6f 66 20 4d 65 6e 75 2d | 72 65 6c 61 74 65 64 20 |of Menu-|related |
|00002350| 72 6f 75 74 69 6e 65 73 | 20 2d 2d 2d 2d 2d 2d 2d |routines| -------|
|00002360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d c0 |--------|-----...|
|00002370| 06 20 3a 0d 0d ca 06 20 | 3a 0d 0d d4 06 20 3a 0d |. :.... |:.... :.|
|00002380| 0d de 4b f4 20 49 63 6f | 6e 20 68 61 6e 64 6c 69 |..K. Ico|n handli|
|00002390| 6e 67 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng -----|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d e8 05 3a 0d |--------|--....:.|
|000023d0| 0d f2 54 dd 20 a4 63 72 | 65 61 74 65 5f 69 63 6f |..T. .cr|eate_ico|
|000023e0| 6e 28 77 68 61 6e 64 6c | 65 25 2c 78 6d 69 6e 25 |n(whandl|e%,xmin%|
|000023f0| 2c 79 6d 69 6e 25 2c 77 | 69 64 74 68 25 2c 68 65 |,ymin%,w|idth%,he|
|00002400| 69 67 68 74 25 2c 69 63 | 6f 6e 66 6c 61 67 73 25 |ight%,ic|onflags%|
|00002410| 2c 74 65 78 74 24 2c 64 | 31 25 2c 64 32 25 2c 64 |,text$,d|1%,d2%,d|
|00002420| 33 25 29 0d 0d fc 0d ea | 20 68 61 6e 64 6c 65 25 |3%).....| handle%|
|00002430| 0d 0e 06 15 62 6c 6f 63 | 6b 25 21 30 3d 77 68 61 |....bloc|k%!0=wha|
|00002440| 6e 64 6c 65 25 0d 0e 10 | 21 62 6c 6f 63 6b 25 21 |ndle%...|!block%!|
|00002450| 34 3d 78 6d 69 6e 25 3a | 62 6c 6f 63 6b 25 21 38 |4=xmin%:|block%!8|
|00002460| 3d 79 6d 69 6e 25 0d 0e | 1a 32 62 6c 6f 63 6b 25 |=ymin%..|.2block%|
|00002470| 21 31 32 3d 78 6d 69 6e | 25 2b 77 69 64 74 68 25 |!12=xmin|%+width%|
|00002480| 3a 62 6c 6f 63 6b 25 21 | 31 36 3d 79 6d 69 6e 25 |:block%!|16=ymin%|
|00002490| 2b 68 65 69 67 68 74 25 | 0d 0e 24 18 62 6c 6f 63 |+height%|..$.bloc|
|000024a0| 6b 25 21 32 30 3d 69 63 | 6f 6e 66 6c 61 67 73 25 |k%!20=ic|onflags%|
|000024b0| 0d 0e 2e 0d e7 20 64 31 | 25 3d 30 20 8c 0d 0e 38 |..... d1|%=0 ...8|
|000024c0| 18 20 20 24 28 62 6c 6f | 63 6b 25 2b 32 34 29 3d |.  $(blo|ck%+24)=|
|000024d0| 74 65 78 74 24 0d 0e 42 | 07 20 20 cc 0d 0e 4c 13 |text$..B|.  ...L.|
|000024e0| 20 20 62 6c 6f 63 6b 25 | 21 32 34 3d 64 31 25 0d |  block%|!24=d1%.|
|000024f0| 0e 56 13 20 20 62 6c 6f | 63 6b 25 21 32 38 3d 64 |.V.  blo|ck%!28=d|
|00002500| 32 25 0d 0e 60 13 20 20 | 62 6c 6f 63 6b 25 21 33 |2%..`.  |block%!3|
|00002510| 32 3d 64 33 25 0d 0e 6a | 05 cd 0d 0e 74 2a c8 99 |2=d3%..j|....t*..|
|00002520| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00002530| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 68 61 6e |n",,bloc|k% . han|
|00002540| 64 6c 65 25 0d 0e 7e 0c | 3d 68 61 6e 64 6c 65 25 |dle%..~.|=handle%|
|00002550| 0d 0e 88 05 3a 0d 0e 92 | 1b dd 20 f2 72 65 64 72 |....:...|.. .redr|
|00002560| 61 77 5f 69 63 6f 6e 28 | 77 69 25 2c 69 63 25 29 |aw_icon(|wi%,ic%)|
|00002570| 0d 0e 9c 0f 21 62 6c 6f | 63 6b 25 3d 77 69 25 0d |....!blo|ck%=wi%.|
|00002580| 0e a6 10 62 6c 6f 63 6b | 25 21 34 3d 69 63 25 0d |...block|%!4=ic%.|
|00002590| 0e b0 0e 62 6c 6f 63 6b | 25 21 38 3d 30 0d 0e ba |...block|%!8=0...|
|000025a0| 0f 62 6c 6f 63 6b 25 21 | 31 32 3d 30 0d 0e c4 22 |.block%!|12=0..."|
|000025b0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|000025c0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0e |State",,|block%..|
|000025d0| ce 2a 62 6c 6f 63 6b 25 | 21 38 3d 30 3a 62 6c 6f |.*block%|!8=0:blo|
|000025e0| 63 6b 25 21 31 32 3d 77 | 69 25 3a 62 6c 6f 63 6b |ck%!12=w|i%:block|
|000025f0| 25 21 31 36 3d 69 63 25 | 0d 0e d8 05 e1 0d 0e e2 |%!16=ic%|........|
|00002600| 05 3a 0d 0e ec 24 dd 20 | a4 6e 65 78 74 5f 77 72 |.:...$. |.next_wr|
|00002610| 69 74 65 61 62 6c 65 28 | 77 69 25 2c 69 63 25 2c |iteable(|wi%,ic%,|
|00002620| 64 25 2c 72 25 29 0d 0e | f6 11 ea 20 50 25 2c 45 |d%,r%)..|... P%,E|
|00002630| 25 2c 6e 65 78 74 25 0d | 0f 00 35 c8 99 20 22 57 |%,next%.|..5.. "W|
|00002640| 69 6d 70 5f 57 68 69 63 | 68 49 63 6f 6e 22 2c 77 |imp_Whic|hIcon",w|
|00002650| 69 25 2c 62 6c 6f 63 6b | 25 2c 26 30 30 43 30 45 |i%,block|%,&00C0E|
|00002660| 30 30 30 2c 28 31 34 3c | 3c 31 32 29 0d 0f 0a 05 |000,(14<|<12)....|
|00002670| f5 0d 0f 14 0b 20 20 45 | 25 2b 3d 34 0d 0f 1e 12 |.....  E|%+=4....|
|00002680| fd 20 62 6c 6f 63 6b 25 | 21 45 25 3d 2d 31 0d 0f |. block%|!E%=-1..|
|00002690| 28 1d c8 95 20 62 6c 6f | 63 6b 25 21 50 25 3c 3e |(... blo|ck%!P%<>|
|000026a0| 69 63 25 20 80 20 50 25 | 3c 45 25 0d 0f 32 0b 20 |ic% . P%|<E%..2. |
|000026b0| 20 50 25 2b 3d 34 0d 0f | 3c 05 ce 0d 0f 46 13 e7 | P%+=4..|<....F..|
|000026c0| 20 50 25 3d 45 25 20 8c | 20 50 25 2d 3d 34 0d 0f | P%=E% .| P%-=4..|
|000026d0| 50 18 e7 20 72 25 3d 31 | 20 80 20 50 25 2b 34 3d |P.. r%=1| . P%+4=|
|000026e0| 45 25 20 8c 3d b9 0d 0f | 5a 0b c8 8e 20 64 25 20 |E% .=...|Z... d% |
|000026f0| ca 0d 0f 64 0f 20 20 c9 | 20 30 3a 50 25 3d 45 25 |...d.  .| 0:P%=E%|
|00002700| 0d 0f 6e 0f 20 20 c9 20 | 32 3a 50 25 3d 2d 34 0d |..n.  . |2:P%=-4.|
|00002710| 0f 78 10 20 20 7f 3a 50 | 25 2b 3d 34 2a 64 25 0d |.x.  .:P|%+=4*d%.|
|00002720| 0f 82 05 cb 0d 0f 8c 0b | c8 8e 20 50 25 20 ca 0d |........|.. P% ..|
|00002730| 0f 96 18 20 20 c9 20 45 | 25 3a 6e 65 78 74 25 3d |...  . E|%:next%=|
|00002740| 21 62 6c 6f 63 6b 25 0d | 0f a0 1e 20 20 c9 20 2d |!block%.|...  . -|
|00002750| 34 3a 6e 65 78 74 25 3d | 62 6c 6f 63 6b 25 21 28 |4:next%=|block%!(|
|00002760| 45 25 2d 34 29 0d 0f aa | 17 20 20 7f 3a 6e 65 78 |E%-4)...|.  .:nex|
|00002770| 74 25 3d 62 6c 6f 63 6b | 25 21 50 25 0d 0f b4 05 |t%=block|%!P%....|
|00002780| cb 0d 0f be 19 f2 73 65 | 74 5f 63 61 72 65 74 28 |......se|t_caret(|
|00002790| 77 69 25 2c 6e 65 78 74 | 25 29 0d 0f c8 06 3d a3 |wi%,next|%)....=.|
|000027a0| 0d 0f d2 05 3a 0d 0f dc | 1b dd 20 a4 74 65 78 74 |....:...|.. .text|
|000027b0| 5f 6c 65 6e 67 74 68 28 | 77 69 25 2c 69 63 25 29 |_length(|wi%,ic%)|
|000027c0| 0d 0f e6 1c 21 62 6c 6f | 63 6b 25 3d 77 69 25 3a |....!blo|ck%=wi%:|
|000027d0| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 25 0d 0f f0 22 |block%!4|=ic%..."|
|000027e0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|000027f0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0f |State",,|block%..|
|00002800| fa 14 3d a9 28 24 28 62 | 6c 6f 63 6b 25 21 32 38 |..=.($(b|lock%!28|
|00002810| 29 29 0d 10 04 05 3a 0d | 10 0e 14 dd 20 a4 74 65 |))....:.|.... .te|
|00002820| 78 74 28 77 69 25 2c 69 | 63 25 29 0d 10 18 1c 21 |xt(wi%,i|c%)....!|
|00002830| 62 6c 6f 63 6b 25 3d 77 | 69 25 3a 62 6c 6f 63 6b |block%=w|i%:block|
|00002840| 25 21 34 3d 69 63 25 0d | 10 22 22 c8 99 20 22 57 |%!4=ic%.|."".. "W|
|00002850| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002860| 22 2c 2c 62 6c 6f 63 6b | 25 0d 10 2c 0e 3d 62 6c |",,block|%..,.=bl|
|00002870| 6f 63 6b 25 21 32 38 0d | 10 36 05 3a 0d 10 40 1d |ock%!28.|.6.:..@.|
|00002880| dd 20 f2 73 65 74 5f 63 | 61 72 65 74 28 68 61 6e |. .set_c|aret(han|
|00002890| 64 6c 65 25 2c 69 63 25 | 29 0d 10 4a 4b c8 99 20 |dle%,ic%|)..JK.. |
|000028a0| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|000028b0| 73 69 74 69 6f 6e 22 2c | 68 61 6e 64 6c 65 25 2c |sition",|handle%,|
|000028c0| 69 63 25 2c 30 2c 30 2c | 2d 31 2c a4 74 65 78 74 |ic%,0,0,|-1,.text|
|000028d0| 5f 6c 65 6e 67 74 68 28 | 68 61 6e 64 6c 65 25 2c |_length(|handle%,|
|000028e0| 69 63 25 29 0d 10 54 05 | e1 0d 10 5e 06 20 3a 0d |ic%)..T.|...^. :.|
|000028f0| 10 68 4c 20 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.hL . --|--------|
|00002900| 2d 2d 2d 2d 2d 2d 20 45 | 6e 64 20 6f 66 20 49 63 |------ E|nd of Ic|
|00002910| 6f 6e 2d 72 65 6c 61 74 | 65 64 20 72 6f 75 74 69 |on-relat|ed routi|
|00002920| 6e 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nes ----|--------|
|00002930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 10 72 06 20 |--------|---..r. |
|00002940| 3a 0d 10 7c 06 20 3a 0d | 10 86 06 20 3a 0d 10 90 |:..|. :.|... :...|
|00002950| 4c 20 f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L . ----|--------|
|00002960| 2d 2d 2d 2d 2d 2d 20 57 | 69 6e 64 6f 77 2d 72 65 |------ W|indow-re|
|00002970| 6c 61 74 65 64 20 72 6f | 75 74 69 6e 65 73 20 2d |lated ro|utines -|
|00002980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 10 9a 06 20 3a 0d |--------|-.... :.|
|000029a0| 10 a4 16 20 dd 20 f2 63 | 72 65 61 74 65 5f 77 69 |... . .c|reate_wi|
|000029b0| 6e 64 6f 77 73 0d 10 ae | 35 20 c8 99 20 22 57 69 |ndows...|5 .. "Wi|
|000029c0| 6d 70 5f 4f 70 65 6e 54 | 65 6d 70 6c 61 74 65 22 |mp_OpenT|emplate"|
|000029d0| 2c 2c 22 3c 41 4c 65 76 | 65 6c 24 44 69 72 3e 2e |,,"<ALev|el$Dir>.|
|000029e0| 54 65 6d 70 6c 61 74 65 | 73 22 0d 10 b8 21 20 69 |Template|s"...! i|
|000029f0| 6e 66 6f 57 25 3d a4 6e | 65 77 5f 77 69 6e 64 6f |nfoW%=.n|ew_windo|
|00002a00| 77 28 22 69 6e 66 6f 22 | 2c 31 29 0d 10 c2 1e 20 |w("info"|,1).... |
|00002a10| 24 a4 74 65 78 74 28 69 | 6e 66 6f 57 25 2c 37 29 |$.text(i|nfoW%,7)|
|00002a20| 3d 76 65 72 73 69 6f 6e | 24 0d 10 cc 21 20 24 a4 |=version|$...! $.|
|00002a30| 74 65 78 74 28 69 6e 66 | 6f 57 25 2c 38 29 3d 69 |text(inf|oW%,8)=i|
|00002a40| 6e 74 76 65 72 73 69 6f | 6e 24 0d 10 d6 35 20 6d |ntversio|n$...5 m|
|00002a50| 61 69 6e 57 25 3d a4 6e | 65 77 5f 77 69 6e 64 6f |ainW%=.n|ew_windo|
|00002a60| 77 28 22 6d 61 69 6e 22 | 2c 31 29 3a 64 61 74 61 |w("main"|,1):data|
|00002a70| 62 61 73 65 25 3d 62 6c | 6f 63 6b 25 21 37 32 0d |base%=bl|ock%!72.|
|00002a80| 10 e0 36 20 6c 69 73 74 | 57 25 3d a4 6e 65 77 5f |..6 list|W%=.new_|
|00002a90| 77 69 6e 64 6f 77 28 22 | 6c 69 73 74 22 2c 31 29 |window("|list",1)|
|00002aa0| 3a 4c 69 73 74 54 69 74 | 6c 65 25 3d 62 6c 6f 63 |:ListTit|le%=bloc|
|00002ab0| 6b 25 21 37 32 0d 10 ea | 3b 20 73 61 76 65 57 25 |k%!72...|; saveW%|
|00002ac0| 3d a4 6e 65 77 5f 77 69 | 6e 64 6f 77 28 22 73 61 |=.new_wi|ndow("sa|
|00002ad0| 76 65 22 2c 31 29 3a 53 | 61 76 65 4c 69 73 74 25 |ve",1):S|aveList%|
|00002ae0| 3d a4 74 65 78 74 28 73 | 61 76 65 57 25 2c 30 29 |=.text(s|aveW%,0)|
|00002af0| 0d 10 f4 1c 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c |.... .. |"Wimp_Cl|
|00002b00| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 10 fe 06 |oseTempl|ate"....|
|00002b10| 20 e1 0d 11 08 06 20 3a | 0d 11 12 1d 20 dd 20 a4 | ..... :|.... . .|
|00002b20| 6e 65 77 5f 77 69 6e 64 | 6f 77 28 6e 61 6d 65 24 |new_wind|ow(name$|
|00002b30| 2c 73 70 25 29 0d 11 1c | 0e 20 ea 20 68 61 6e 64 |,sp%)...|. . hand|
|00002b40| 6c 65 25 0d 11 26 47 20 | c8 99 20 22 57 69 6d 70 |le%..&G |.. "Wimp|
|00002b50| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00002b60| 62 6c 6f 63 6b 25 2c 62 | 75 66 66 25 2c 65 6e 64 |block%,b|uff%,end|
|00002b70| 62 75 66 66 25 2c 2d 31 | 2c 6e 61 6d 65 24 2c 30 |buff%,-1|,name$,0|
|00002b80| 20 b8 20 2c 2c 62 75 66 | 66 25 0d 11 30 12 20 62 | . ,,buf|f%..0. b|
|00002b90| 6c 6f 63 6b 25 21 36 34 | 3d 73 70 25 0d 11 3a 2d |lock%!64|=sp%..:-|
|00002ba0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00002bb0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 20 |Window",|,block% |
|00002bc0| b8 20 68 61 6e 64 6c 65 | 25 0d 11 44 0d 20 3d 68 |. handle|%..D. =h|
|00002bd0| 61 6e 64 6c 65 25 0d 11 | 4e 06 20 3a 0d 11 58 14 |andle%..|N. :..X.|
|00002be0| 20 dd 20 f2 73 68 6f 77 | 5f 77 69 6e 64 6f 77 73 | . .show|_windows|
|00002bf0| 0d 11 62 19 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |..b. .op|en_windo|
|00002c00| 77 28 6d 61 69 6e 57 25 | 29 0d 11 6c 06 20 e1 0d |w(mainW%|)..l. ..|
|00002c10| 11 76 06 20 3a 0d 11 80 | 1d 20 dd 20 f2 6f 70 65 |.v. :...|. . .ope|
|00002c20| 6e 5f 77 69 6e 64 6f 77 | 28 77 68 61 6e 64 6c 65 |n_window|(whandle|
|00002c30| 25 29 0d 11 8a 16 20 62 | 6c 6f 63 6b 25 21 30 3d |%).... b|lock%!0=|
|00002c40| 77 68 61 6e 64 6c 65 25 | 0d 11 94 25 20 c8 99 20 |whandle%|...% .. |
|00002c50| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00002c60| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 11 9e |tate",,b|lock%...|
|00002c70| 11 20 62 6c 6f 63 6b 25 | 21 32 38 3d 2d 31 0d 11 |. block%|!28=-1..|
|00002c80| a8 21 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.! .. "W|imp_Open|
|00002c90| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 0d |Window",|,block%.|
|00002ca0| 11 b2 06 20 e1 0d 11 bc | 06 20 3a 0d 11 c6 14 20 |... ....|. :.... |
|00002cb0| dd 20 f2 68 69 64 65 5f | 77 69 6e 64 6f 77 73 0d |. .hide_|windows.|
|00002cc0| 11 d0 1a 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |... .clo|se_windo|
|00002cd0| 77 28 6d 61 69 6e 57 25 | 29 0d 11 da 1a 20 f2 63 |w(mainW%|).... .c|
|00002ce0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 6c 69 73 74 |lose_win|dow(list|
|00002cf0| 57 25 29 0d 11 e4 06 20 | e1 0d 11 ee 06 20 3a 0d |W%).... |..... :.|
|00002d00| 11 f8 1e 20 dd 20 f2 63 | 6c 6f 73 65 5f 77 69 6e |... . .c|lose_win|
|00002d10| 64 6f 77 28 77 68 61 6e | 64 6c 65 25 29 0d 12 02 |dow(whan|dle%)...|
|00002d20| 15 20 21 62 6c 6f 63 6b | 25 3d 77 68 61 6e 64 6c |. !block|%=whandl|
|00002d30| 65 25 0d 12 0c 22 20 c8 | 99 20 22 57 69 6d 70 5f |e%..." .|. "Wimp_|
|00002d40| 43 6c 6f 73 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |CloseWin|dow",,bl|
|00002d50| 6f 63 6b 25 0d 12 16 06 | 20 e1 0d 12 20 06 20 3a |ock%....| ... . :|
|00002d60| 0d 12 2a 17 20 dd 20 f2 | 72 65 64 72 61 77 28 68 |..*. . .|redraw(h|
|00002d70| 61 6e 64 6c 65 25 29 0d | 12 34 14 20 21 62 6c 6f |andle%).|.4. !blo|
|00002d80| 63 6b 25 3d 68 61 6e 64 | 6c 65 25 0d 12 3e 2b 20 |ck%=hand|le%..>+ |
|00002d90| c8 99 20 22 57 69 6d 70 | 5f 52 65 64 72 61 77 57 |.. "Wimp|_RedrawW|
|00002da0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 20 b8 |indow",,|block% .|
|00002db0| 20 6d 6f 72 65 25 0d 12 | 48 20 20 f2 67 65 74 5f | more%..|H  .get_|
|00002dc0| 6f 72 69 67 69 6e 28 62 | 6c 6f 63 6b 25 2c 78 30 |origin(b|lock%,x0|
|00002dd0| 25 2c 79 30 25 29 0d 12 | 52 0d 20 c8 95 20 6d 6f |%,y0%)..|R. .. mo|
|00002de0| 72 65 25 0d 12 5c 15 20 | 20 20 f2 64 72 61 77 28 |re%..\. |  .draw(|
|00002df0| 78 30 25 2c 79 30 25 29 | 0d 12 66 2c 20 20 20 c8 |x0%,y0%)|..f,   .|
|00002e00| 99 20 22 49 6e 74 65 72 | 66 61 63 65 5f 52 65 6e |. "Inter|face_Ren|
|00002e10| 64 65 72 33 64 57 69 6e | 64 6f 77 22 2c 2c 62 6c |der3dWin|dow",,bl|
|00002e20| 6f 63 6b 25 0d 12 70 2d | 20 20 20 c8 99 20 22 57 |ock%..p-|   .. "W|
|00002e30| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00002e40| 22 2c 2c 62 6c 6f 63 6b | 25 20 b8 20 6d 6f 72 65 |",,block|% . more|
|00002e50| 25 0d 12 7a 06 20 ce 0d | 12 84 06 20 e1 0d 12 8e |%..z. ..|... ....|
|00002e60| 06 20 3a 0d 12 98 26 20 | dd 20 f2 67 65 74 5f 6f |. :...& |. .get_o|
|00002e70| 72 69 67 69 6e 28 62 6c | 6f 63 6b 25 2c f8 20 78 |rigin(bl|ock%,. x|
|00002e80| 30 25 2c f8 20 79 30 25 | 29 0d 12 a2 1b 20 78 30 |0%,. y0%|).... x0|
|00002e90| 25 3d 62 6c 6f 63 6b 25 | 21 34 2d 62 6c 6f 63 6b |%=block%|!4-block|
|00002ea0| 25 21 32 30 0d 12 ac 1c | 20 79 30 25 3d 62 6c 6f |%!20....| y0%=blo|
|00002eb0| 63 6b 25 21 31 36 2d 62 | 6c 6f 63 6b 25 21 32 34 |ck%!16-b|lock%!24|
|00002ec0| 0d 12 b6 06 20 e1 0d 12 | c0 06 20 3a 0d 12 ca 15 |.... ...|.. :....|
|00002ed0| 20 dd 20 f2 64 72 61 77 | 28 78 30 25 2c 79 30 25 | . .draw|(x0%,y0%|
|00002ee0| 29 0d 12 d4 21 20 ea 20 | 54 65 78 74 50 74 72 25 |)...! . |TextPtr%|
|00002ef0| 2c 79 31 25 2c 79 32 25 | 2c 49 25 2c 63 68 61 72 |,y1%,y2%|,I%,char|
|00002f00| 73 25 0d 12 de 11 20 c8 | 8e 20 68 61 6e 64 6c 65 |s%.... .|. handle|
|00002f10| 25 20 ca 0d 12 e8 0f 20 | 20 20 c9 20 6c 69 73 74 |% ..... |  . list|
|00002f20| 57 25 0d 12 f2 1b 20 20 | 20 79 31 25 3d 2d 28 62 |W%....  | y1%=-(b|
|00002f30| 6c 6f 63 6b 25 21 34 30 | 2d 79 30 25 29 0d 12 fc |lock%!40|-y0%)...|
|00002f40| 1b 20 20 20 79 32 25 3d | 2d 28 62 6c 6f 63 6b 25 |.   y2%=|-(block%|
|00002f50| 21 33 32 2d 79 30 25 29 | 0d 13 06 15 20 20 20 79 |!32-y0%)|....   y|
|00002f60| 31 25 3d 79 31 25 20 81 | 20 33 32 2b 31 0d 13 10 |1%=y1% .| 32+1...|
|00002f70| 15 20 20 20 79 32 25 3d | 79 32 25 20 81 20 33 32 |.   y2%=|y2% . 32|
|00002f80| 2b 31 0d 13 1a 2f 20 20 | 20 54 65 78 74 50 74 72 |+1.../  | TextPtr|
|00002f90| 25 3d 28 21 74 65 78 74 | 61 6e 63 68 6f 72 25 29 |%=(!text|anchor%)|
|00002fa0| 2b 28 79 31 25 2d 31 29 | 2a 4c 65 6e 4c 69 6e 65 |+(y1%-1)|*LenLine|
|00002fb0| 25 0d 13 24 20 20 20 20 | e7 20 79 32 25 3e 43 6f |%..$    |. y2%>Co|
|00002fc0| 75 6e 74 25 20 8c 20 79 | 32 25 3d 43 6f 75 6e 74 |unt% . y|2%=Count|
|00002fd0| 25 0d 13 2e 15 20 20 20 | e3 20 49 25 3d 79 31 25 |%....   |. I%=y1%|
|00002fe0| 20 b8 20 79 32 25 0d 13 | 38 17 20 20 20 20 20 f2 | . y2%..|8.     .|
|00002ff0| 64 72 61 77 5f 6c 69 6e | 65 28 49 25 29 0d 13 42 |draw_lin|e(I%)..B|
|00003000| 1b 20 20 20 20 20 54 65 | 78 74 50 74 72 25 2b 3d |.     Te|xtPtr%+=|
|00003010| 4c 65 6e 4c 69 6e 65 25 | 0d 13 4c 0b 20 20 20 ed |LenLine%|..L.   .|
|00003020| 20 49 25 0d 13 56 06 20 | cb 0d 13 60 06 20 e1 0d | I%..V. |...`. ..|
|00003030| 13 6a 06 20 3a 0d 13 74 | 18 20 dd 20 f2 64 72 61 |.j. :..t|. . .dra|
|00003040| 77 5f 6c 69 6e 65 28 4c | 69 6e 65 25 29 0d 13 7e |w_line(L|ine%)..~|
|00003050| 18 20 e7 20 54 65 78 74 | 50 74 72 25 3f 31 3d 31 |. . Text|Ptr%?1=1|
|00003060| 32 20 8c 20 e1 0d 13 88 | 1d 20 ec 20 78 30 25 2c |2 . ....|. . x0%,|
|00003070| 79 30 25 2d 28 4c 69 6e | 65 25 2d 31 29 2a 33 32 |y0%-(Lin|e%-1)*32|
|00003080| 2d 34 0d 13 92 25 20 c8 | 99 20 22 4f 53 5f 57 72 |-4...% .|. "OS_Wr|
|00003090| 69 74 65 4e 22 2c 54 65 | 78 74 50 74 72 25 2c 4c |iteN",Te|xtPtr%,L|
|000030a0| 65 6e 4c 69 6e 65 25 0d | 13 9c 06 20 e1 0d 13 a6 |enLine%.|... ....|
|000030b0| 06 20 3a 0d 13 b0 4b 20 | f4 20 2d 2d 2d 2d 2d 2d |. :...K |. ------|
|000030c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 45 6e 64 |--------|---- End|
|000030d0| 20 6f 66 20 57 69 6e 64 | 6f 77 2d 72 65 6c 61 74 | of Wind|ow-relat|
|000030e0| 65 64 20 72 6f 75 74 69 | 6e 65 73 2d 2d 2d 2d 2d |ed routi|nes-----|
|000030f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 13 |--------|------..|
|00003100| ba 06 20 3a 0d 13 c4 06 | 20 3a 0d 13 ce 06 20 3a |.. :....| :.... :|
|00003110| 0d 13 d8 4c 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...L . -|--------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 4d 6f 75 |--------|---- Mou|
|00003130| 73 65 2d 63 6c 69 63 6b | 20 70 72 6f 63 65 73 73 |se-click| process|
|00003140| 69 6e 67 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ing ----|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 13 e2 06 |--------|----....|
|00003160| 20 3a 0d 13 ec 1f 20 dd | 20 f2 6d 6f 75 73 65 28 | :.... .| .mouse(|
|00003170| 78 25 2c 79 25 2c 62 25 | 2c 77 69 25 2c 69 63 25 |x%,y%,b%|,wi%,ic%|
|00003180| 29 0d 13 f6 13 20 e7 20 | 28 62 25 20 80 20 32 29 |).... . |(b% . 2)|
|00003190| 3d a3 20 8c 0d 14 00 45 | 20 20 20 21 62 6c 6f 63 |=. ....E|   !bloc|
|000031a0| 6b 25 3d 78 25 3a 62 6c | 6f 63 6b 25 21 34 3d 79 |k%=x%:bl|ock%!4=y|
|000031b0| 25 3a 62 6c 6f 63 6b 25 | 21 38 3d 62 25 3a 62 6c |%:block%|!8=b%:bl|
|000031c0| 6f 63 6b 25 21 31 32 3d | 77 69 25 3a 62 6c 6f 63 |ock%!12=|wi%:bloc|
|000031d0| 6b 25 21 31 36 3d 69 63 | 25 0d 14 0a 28 20 20 20 |k%!16=ic|%...(   |
|000031e0| c8 99 20 22 49 6e 74 65 | 72 66 61 63 65 5f 53 6c |.. "Inte|rface_Sl|
|000031f0| 61 62 42 75 74 74 6f 6e | 22 2c 2c 62 6c 6f 63 6b |abButton|",,block|
|00003200| 25 0d 14 14 06 20 cd 0d | 14 1e 0d 20 c8 8e 20 77 |%.... ..|... .. w|
|00003210| 69 25 20 ca 0d 14 28 1a | 20 20 20 c9 20 2d 32 3a |i% ...(.|   . -2:|
|00003220| f2 69 63 6f 6e 62 61 72 | 5f 63 6c 69 63 6b 0d 14 |.iconbar|_click..|
|00003230| 32 24 20 20 20 c9 20 6d | 61 69 6e 57 25 3a f2 6d |2$   . m|ainW%:.m|
|00003240| 61 69 6e 5f 63 6c 69 63 | 6b 28 77 69 25 2c 69 63 |ain_clic|k(wi%,ic|
|00003250| 25 29 0d 14 3c 1b 20 20 | 20 c9 20 6c 69 73 74 57 |%)..<.  | . listW|
|00003260| 25 3a f2 6c 69 73 74 5f | 63 6c 69 63 6b 0d 14 46 |%:.list_|click..F|
|00003270| 24 20 20 20 c9 20 73 61 | 76 65 57 25 3a f2 73 61 |$   . sa|veW%:.sa|
|00003280| 76 65 5f 63 6c 69 63 6b | 28 77 69 25 2c 69 63 25 |ve_click|(wi%,ic%|
|00003290| 29 0d 14 50 06 20 cb 0d | 14 5a 2b 20 62 6c 6f 63 |)..P. ..|.Z+ bloc|
|000032a0| 6b 25 21 38 3d 30 3a 62 | 6c 6f 63 6b 25 21 31 32 |k%!8=0:b|lock%!12|
|000032b0| 3d 77 69 25 3a 62 6c 6f | 63 6b 25 21 31 36 3d 69 |=wi%:blo|ck%!16=i|
|000032c0| 63 25 0d 14 64 26 20 c8 | 99 20 22 49 6e 74 65 72 |c%..d& .|. "Inter|
|000032d0| 66 61 63 65 5f 53 6c 61 | 62 42 75 74 74 6f 6e 22 |face_Sla|bButton"|
|000032e0| 2c 2c 62 6c 6f 63 6b 25 | 0d 14 6e 06 20 e1 0d 14 |,,block%|..n. ...|
|000032f0| 78 06 20 3a 0d 14 82 15 | 20 dd 20 f2 69 63 6f 6e |x. :....| . .icon|
|00003300| 62 61 72 5f 63 6c 69 63 | 6b 0d 14 8c 0c 20 c8 8e |bar_clic|k.... ..|
|00003310| 20 62 25 20 ca 0d 14 96 | 2b 20 20 20 c9 20 32 3a | b% ....|+   . 2:|
|00003320| f2 73 68 6f 77 5f 6d 65 | 6e 75 28 6d 65 6e 75 25 |.show_me|nu(menu%|
|00003330| 28 30 29 2c 78 25 2d 36 | 34 2c 79 62 61 72 25 29 |(0),x%-6|4,ybar%)|
|00003340| 0d 14 a0 1f 20 20 20 c9 | 20 34 3a f2 6f 70 65 6e |....   .| 4:.open|
|00003350| 5f 77 69 6e 64 6f 77 28 | 6d 61 69 6e 57 25 29 0d |_window(|mainW%).|
|00003360| 14 aa 27 20 20 20 e7 20 | 6c 69 73 74 65 64 25 20 |..'   . |listed% |
|00003370| 8c 20 f2 6f 70 65 6e 5f | 77 69 6e 64 6f 77 28 6c |. .open_|window(l|
|00003380| 69 73 74 57 25 29 0d 14 | b4 06 20 cb 0d 14 be 06 |istW%)..|.. .....|
|00003390| 20 e1 0d 14 c8 06 20 3a | 0d 14 d2 1b 20 dd 20 f2 | ..... :|.... . .|
|000033a0| 6d 61 69 6e 5f 63 6c 69 | 63 6b 28 77 69 25 2c 69 |main_cli|ck(wi%,i|
|000033b0| 63 25 29 0d 14 dc 13 20 | c8 8e 20 62 25 20 80 20 |c%).... |.. b% . |
|000033c0| 25 31 31 31 20 ca 0d 14 | e6 2b 20 20 20 c9 20 32 |%111 ...|.+   . 2|
|000033d0| 3a f2 73 68 6f 77 5f 6d | 65 6e 75 28 6d 65 6e 75 |:.show_m|enu(menu|
|000033e0| 25 28 31 29 2c 78 25 2d | 36 34 2c 79 25 2b 31 36 |%(1),x%-|64,y%+16|
|000033f0| 29 0d 14 f0 0b 20 20 20 | c9 20 34 3a 0d 14 fa 0f |)....   |. 4:....|
|00003400| 20 20 20 c8 8e 20 69 63 | 25 20 ca 0d 15 04 0d 20 |   .. ic|% ..... |
|00003410| 20 20 20 20 c9 20 34 3a | 0d 15 0e 1f 20 20 20 20 |    . 4:|....    |
|00003420| 20 79 65 61 72 24 3d 24 | a4 74 65 78 74 28 6d 61 | year$=$|.text(ma|
|00003430| 69 6e 57 25 2c 31 29 0d | 15 18 61 20 20 20 20 20 |inW%,1).|..a     |
|00003440| c8 99 20 22 49 6d 70 75 | 6c 73 65 5f 53 65 6e 64 |.. "Impu|lse_Send|
|00003450| 4d 65 73 73 61 67 65 22 | 2c 26 32 30 31 2c 22 3a |Message"|,&201,":|
|00003460| 50 6f 77 65 72 62 61 73 | 65 2e 22 2b 79 65 61 72 |Powerbas|e."+year|
|00003470| 24 2b 22 20 47 65 74 50 | 61 74 68 6e 61 6d 65 22 |$+" GetP|athname"|
|00003480| 2c 2c 2c 2c 61 72 65 79 | 6f 75 74 68 65 72 65 25 |,,,,arey|outhere%|
|00003490| 2c 6d 79 74 61 73 6b 25 | 0d 15 22 08 20 20 20 cb |,mytask%|..".   .|
|000034a0| 0d 15 2c 06 20 cb 0d 15 | 36 06 20 e1 0d 15 40 05 |..,. ...|6. ...@.|
|000034b0| 3a 0d 15 4a 12 20 dd 20 | f2 6c 69 73 74 5f 63 6c |:..J. . |.list_cl|
|000034c0| 69 63 6b 0d 15 54 2d 20 | e7 20 62 25 3d 32 20 8c |ick..T- |. b%=2 .|
|000034d0| 20 f2 73 68 6f 77 5f 6d | 65 6e 75 28 73 61 76 65 | .show_m|enu(save|
|000034e0| 57 25 2c 78 25 2d 31 32 | 38 2c 79 25 2d 34 38 29 |W%,x%-12|8,y%-48)|
|000034f0| 0d 15 5e 10 20 6c 69 73 | 74 74 79 70 65 25 3d 31 |..^. lis|ttype%=1|
|00003500| 0d 15 68 06 20 e1 0d 15 | 72 06 20 3a 0d 15 7c 1b |..h. ...|r. :..|.|
|00003510| 20 dd 20 f2 73 61 76 65 | 5f 63 6c 69 63 6b 28 77 | . .save|_click(w|
|00003520| 69 25 2c 69 63 25 29 0d | 15 86 09 20 ea 20 48 24 |i%,ic%).|... . H$|
|00003530| 0d 15 90 34 20 53 74 61 | 72 74 25 3d 21 74 65 78 |...4 Sta|rt%=!tex|
|00003540| 74 61 6e 63 68 6f 72 25 | 3a 45 6e 64 25 3d 53 74 |tanchor%|:End%=St|
|00003550| 61 72 74 25 2b 43 6f 75 | 6e 74 25 2a 4c 65 6e 4c |art%+Cou|nt%*LenL|
|00003560| 69 6e 65 25 0d 15 9a 24 | 20 46 69 6c 65 6e 61 6d |ine%...$| Filenam|
|00003570| 65 24 3d 24 53 61 76 65 | 4c 69 73 74 25 3a 54 79 |e$=$Save|List%:Ty|
|00003580| 70 65 25 3d 26 46 46 46 | 0d 15 a4 0d 20 c8 8e 20 |pe%=&FFF|.... .. |
|00003590| 69 63 25 20 ca 0d 15 ae | 37 20 20 20 c9 20 31 3a |ic% ....|7   . 1:|
|000035a0| e7 20 28 62 25 20 80 20 | 25 31 31 31 31 30 30 30 |. (b% . |%1111000|
|000035b0| 30 29 3e 30 20 8c 20 f2 | 69 6e 69 74 5f 64 72 61 |0)>0 . .|init_dra|
|000035c0| 67 28 77 69 25 2c 69 63 | 25 2c 35 29 0d 15 b8 0b |g(wi%,ic|%,5)....|
|000035d0| 20 20 20 c9 20 32 3a 0d | 15 c2 1c 20 20 20 e7 20 |   . 2:.|...   . |
|000035e0| a7 46 69 6c 65 6e 61 6d | 65 24 2c 22 2e 22 29 3e |.Filenam|e$,".")>|
|000035f0| 30 20 8c 0d 15 cc 2b 20 | 20 20 20 20 f2 73 61 76 |0 ....+ |    .sav|
|00003600| 65 28 46 69 6c 65 6e 61 | 6d 65 24 2c 54 79 70 65 |e(Filena|me$,Type|
|00003610| 25 2c 53 74 61 72 74 25 | 2c 45 6e 64 25 29 0d 15 |%,Start%|,End%)..|
|00003620| d6 21 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |.!     .|. "Wimp_|
|00003630| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 0d |CreateMe|nu",,-1.|
|00003640| 15 e0 68 20 20 20 20 20 | cc 20 f2 77 69 6d 70 5f |..h     |. .wimp_|
|00003650| 65 72 72 6f 72 28 b9 2c | 6d 6f 61 6e 5f 65 72 72 |error(.,|moan_err|
|00003660| 25 2c 30 2c 22 4e 6f 20 | 70 61 74 68 6e 61 6d 65 |%,0,"No |pathname|
|00003670| 2e 20 44 72 61 67 20 74 | 68 65 20 66 69 6c 65 20 |. Drag t|he file |
|00003680| 69 63 6f 6e 20 74 6f 20 | 61 20 64 69 72 65 63 74 |icon to |a direct|
|00003690| 6f 72 79 20 76 69 65 77 | 65 72 20 74 6f 20 73 61 |ory view|er to sa|
|000036a0| 76 65 20 69 74 22 29 0d | 15 ea 08 20 20 20 cd 0d |ve it").|...   ..|
|000036b0| 15 f4 06 20 cb 0d 15 fe | 06 20 e1 0d 16 08 06 20 |... ....|. ..... |
|000036c0| 3a 0d 16 12 20 20 dd 20 | f2 73 61 76 65 28 66 24 |:...  . |.save(f$|
|000036d0| 2c 66 74 25 2c 73 74 61 | 72 74 25 2c 65 6e 64 25 |,ft%,sta|rt%,end%|
|000036e0| 29 0d 16 1c 28 20 c8 99 | 20 22 4f 53 5f 46 69 6c |)...( ..| "OS_Fil|
|000036f0| 65 22 2c 31 30 2c 66 24 | 2c 66 74 25 2c 2c 73 74 |e",10,f$|,ft%,,st|
|00003700| 61 72 74 25 2c 65 6e 64 | 25 0d 16 26 0c 20 77 61 |art%,end|%..&. wa|
|00003710| 72 6e 25 3d b9 0d 16 30 | 06 20 e1 0d 16 3a 06 20 |rn%=...0|. ...:. |
|00003720| 3a 0d 16 44 49 20 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |:..DI . |--------|
|00003730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 45 6e 64 20 6f |--------|-- End o|
|00003740| 66 20 4d 6f 75 73 65 2d | 63 6c 69 63 6b 20 70 72 |f Mouse-|click pr|
|00003750| 6f 63 65 73 73 69 6e 67 | 20 2d 2d 2d 2d 2d 2d 2d |ocessing| -------|
|00003760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 16 4e 06 20 3a |--------|--..N. :|
|00003770| 0d 16 58 06 20 3a 0d 16 | 62 06 20 3a 0d 16 6c 4b |..X. :..|b. :..lK|
|00003780| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00003790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 4b 65 79 2d 70 72 |--------|- Key-pr|
|000037a0| 65 73 73 20 70 72 6f 63 | 65 73 73 69 6e 67 20 2d |ess proc|essing -|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037c0| 2d 2d 2d 2d 2d 2d 2d 0d | 16 76 06 20 3a 0d 16 80 |-------.|.v. :...|
|000037d0| 13 20 dd 20 f2 70 72 6f | 63 65 73 73 5f 6b 65 79 |. . .pro|cess_key|
|000037e0| 0d 16 8a 0c 20 ea 20 54 | 25 2c 4e 24 0d 16 94 27 |.... . T|%,N$...'|
|000037f0| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 43 61 72 | .. "Wim|p_GetCar|
|00003800| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2c 62 6c 6f |etPositi|on",,blo|
|00003810| 63 6b 25 0d 16 9e 35 20 | 77 69 25 3d 62 6c 6f 63 |ck%...5 |wi%=bloc|
|00003820| 6b 25 21 30 3a 69 63 25 | 3d 62 6c 6f 63 6b 25 21 |k%!0:ic%|=block%!|
|00003830| 34 3a 6b 65 79 5f 70 72 | 65 73 73 65 64 25 3d 62 |4:key_pr|essed%=b|
|00003840| 6c 6f 63 6b 25 21 32 34 | 0d 16 a8 0d 20 c8 8e 20 |lock%!24|.... .. |
|00003850| 77 69 25 20 ca 0d 16 b2 | 1e 20 20 20 c9 20 6d 61 |wi% ....|.   . ma|
|00003860| 69 6e 57 25 3a f2 64 62 | 6f 78 5f 70 72 65 73 73 |inW%:.db|ox_press|
|00003870| 28 34 29 0d 16 bc 1e 20 | 20 20 c9 20 73 61 76 65 |(4).... |  . save|
|00003880| 57 25 3a f2 64 62 6f 78 | 5f 70 72 65 73 73 28 32 |W%:.dbox|_press(2|
|00003890| 29 0d 16 c6 06 20 cb 0d | 16 d0 06 20 e1 0d 16 da |).... ..|... ....|
|000038a0| 06 20 3a 0d 16 e4 16 dd | 20 f2 64 62 6f 78 5f 70 |. :.....| .dbox_p|
|000038b0| 72 65 73 73 28 6f 6b 25 | 29 0d 16 ee 15 c8 8e 20 |ress(ok%|)...... |
|000038c0| 6b 65 79 5f 70 72 65 73 | 73 65 64 25 20 ca 0d 16 |key_pres|sed% ...|
|000038d0| f8 42 20 20 c9 20 31 33 | 3a e7 20 a4 6e 65 78 74 |.B  . 13|:. .next|
|000038e0| 5f 77 72 69 74 65 61 62 | 6c 65 28 77 69 25 2c 69 |_writeab|le(wi%,i|
|000038f0| 63 25 2c 31 2c 31 29 3d | b9 20 8c f2 6d 6f 75 73 |c%,1,1)=|. ..mous|
|00003900| 65 28 30 2c 30 2c 34 2c | 77 69 25 2c 6f 6b 25 29 |e(0,0,4,|wi%,ok%)|
|00003910| 0d 17 02 2b 20 20 c9 20 | 33 39 38 3a 66 25 3d a4 |...+  . |398:f%=.|
|00003920| 6e 65 78 74 5f 77 72 69 | 74 65 61 62 6c 65 28 77 |next_wri|teable(w|
|00003930| 69 25 2c 69 63 25 2c 31 | 2c 30 29 0d 17 0c 2c 20 |i%,ic%,1|,0)..., |
|00003940| 20 c9 20 33 39 39 3a 66 | 25 3d a4 6e 65 78 74 5f | . 399:f|%=.next_|
|00003950| 77 72 69 74 65 61 62 6c | 65 28 77 69 25 2c 69 63 |writeabl|e(wi%,ic|
|00003960| 25 2c 2d 31 2c 30 29 0d | 17 16 29 20 20 7f 20 c8 |%,-1,0).|..)  . .|
|00003970| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00003980| 65 79 22 2c 6b 65 79 5f | 70 72 65 73 73 65 64 25 |ey",key_|pressed%|
|00003990| 0d 17 20 05 cb 0d 17 2a | 05 e1 0d 17 34 06 20 3a |.. ....*|....4. :|
|000039a0| 0d 17 3e 4a 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..>J . -|--------|
|000039b0| 2d 2d 2d 2d 2d 2d 2d 20 | 45 6e 64 20 6f 66 20 4b |------- |End of K|
|000039c0| 65 79 2d 70 72 65 73 73 | 20 70 72 6f 63 65 73 73 |ey-press| process|
|000039d0| 69 6e 67 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ing ----|--------|
|000039e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 17 48 06 20 3a |--------|--..H. :|
|000039f0| 0d 17 52 48 20 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..RH . -|--------|
|00003a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 4d 65 73 73 |--------|--- Mess|
|00003a10| 61 67 65 20 68 61 6e 64 | 6c 69 6e 67 20 2d 2d 2d |age hand|ling ---|
|00003a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003a30| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 17 5c 06 20 3a 0d 17 |--------|..\. :..|
|00003a40| 66 18 20 dd 20 f2 6e 6f | 74 5f 61 63 6b 6e 6f 77 |f. . .no|t_acknow|
|00003a50| 6c 65 64 67 65 64 0d 17 | 70 40 20 85 20 6d 6f 61 |ledged..|p@ . moa|
|00003a60| 6e 5f 65 72 72 25 2c 22 | 50 6f 77 65 72 62 61 73 |n_err%,"|Powerbas|
|00003a70| 65 20 6e 6f 74 20 72 65 | 73 70 6f 6e 64 69 6e 67 |e not re|sponding|
|00003a80| 2e 20 49 73 20 69 74 20 | 72 75 6e 6e 69 6e 67 3f |. Is it |running?|
|00003a90| 22 2b bd 28 30 29 0d 17 | 7a 06 20 e1 0d 17 84 06 |"+.(0)..|z. .....|
|00003aa0| 20 3a 0d 17 8e 0f 20 dd | 20 f2 6d 65 73 73 61 67 | :.... .| .messag|
|00003ab0| 65 0d 17 98 19 20 ea 20 | 74 61 73 6b 25 2c 72 65 |e.... . |task%,re|
|00003ac0| 66 25 2c 50 72 65 66 69 | 78 24 0d 17 a2 13 20 74 |f%,Prefi|x$.... t|
|00003ad0| 61 73 6b 25 3d 62 6c 6f | 63 6b 25 21 34 0d 17 ac |ask%=blo|ck%!4...|
|00003ae0| 12 20 72 65 66 25 3d 62 | 6c 6f 63 6b 25 21 38 0d |. ref%=b|lock%!8.|
|00003af0| 17 b6 13 20 c8 8e 20 62 | 6c 6f 63 6b 25 21 31 36 |... .. b|lock%!16|
|00003b00| 20 ca 0d 17 c0 12 20 20 | 20 c9 20 30 3a 71 75 69 | .....  | . 0:qui|
|00003b10| 74 25 3d b9 0d 17 ca 0b | 20 20 20 c9 20 32 3a 0d |t%=.....|   . 2:.|
|00003b20| 17 d4 32 20 20 20 f2 73 | 61 76 65 28 a4 67 65 74 |..2   .s|ave(.get|
|00003b30| 73 74 72 28 62 6c 6f 63 | 6b 25 2b 34 34 29 2c 54 |str(bloc|k%+44),T|
|00003b40| 79 70 65 25 2c 53 74 61 | 72 74 25 2c 45 6e 64 25 |ype%,Sta|rt%,End%|
|00003b50| 29 0d 17 de 27 20 20 20 | c8 99 20 22 57 69 6d 70 |)...'   |.. "Wimp|
|00003b60| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|00003b70| 2c 2c 62 6c 6f 63 6b 25 | 0d 17 e8 1a 20 20 20 62 |,,block%|....   b|
|00003b80| 6c 6f 63 6b 25 21 32 30 | 3d 62 6c 6f 63 6b 25 21 |lock%!20|=block%!|
|00003b90| 31 32 0d 17 f2 1a 20 20 | 20 62 6c 6f 63 6b 25 21 |12....  | block%!|
|00003ba0| 32 34 3d 62 6c 6f 63 6b | 25 21 31 36 0d 17 fc 19 |24=block|%!16....|
|00003bb0| 20 20 20 62 6c 6f 63 6b | 25 21 32 38 3d 62 6c 6f |   block|%!28=blo|
|00003bc0| 63 6b 25 21 30 0d 18 06 | 19 20 20 20 62 6c 6f 63 |ck%!0...|.   bloc|
|00003bd0| 6b 25 21 33 32 3d 62 6c | 6f 63 6b 25 21 34 0d 18 |k%!32=bl|ock%!4..|
|00003be0| 10 12 20 20 20 21 62 6c | 6f 63 6b 25 3d 32 35 36 |..   !bl|ock%=256|
|00003bf0| 0d 18 1a 16 20 20 20 62 | 6c 6f 63 6b 25 21 34 30 |....   b|lock%!40|
|00003c00| 3d 54 79 70 65 25 0d 18 | 24 1f 20 20 20 6d 79 72 |=Type%..|$.   myr|
|00003c10| 65 66 25 3d 72 65 66 25 | 3a f2 72 65 70 6c 79 28 |ef%=ref%|:.reply(|
|00003c20| 31 38 2c 33 29 0d 18 2e | 17 20 20 20 77 61 69 74 |18,3)...|.   wait|
|00003c30| 69 6e 67 66 6f 72 61 63 | 6b 25 3d b9 0d 18 38 1f |ingforac|k%=...8.|
|00003c40| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |   .. "W|imp_Crea|
|00003c50| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 18 42 1b 20 |teMenu",|,-1..B. |
|00003c60| 20 20 c9 20 34 3a 77 61 | 69 74 69 6e 67 66 6f 72 |  . 4:wa|itingfor|
|00003c70| 61 63 6b 25 3d a3 0d 18 | 4c 18 20 20 20 c9 20 36 |ack%=...|L.   . 6|
|00003c80| 3a f2 72 61 6d 5f 74 72 | 61 6e 73 6d 69 74 0d 18 |:.ram_tr|ansmit..|
|00003c90| 56 0e 20 20 20 c9 20 26 | 35 30 32 3a 0d 18 60 15 |V.   . &|502:..`.|
|00003ca0| 20 20 20 c8 8e 20 62 6c | 6f 63 6b 25 21 33 32 20 |   .. bl|ock%!32 |
|00003cb0| ca 0d 18 6a 2d 20 20 20 | 20 20 c9 20 2d 32 2c 6c |...j-   |  . -2,l|
|00003cc0| 69 73 74 57 25 3a f2 68 | 65 6c 70 5f 6d 65 73 73 |istW%:.h|elp_mess|
|00003cd0| 61 67 65 28 62 6c 6f 63 | 6b 25 21 33 32 29 0d 18 |age(bloc|k%!32)..|
|00003ce0| 74 2a 20 20 20 20 20 7f | 3a c8 99 20 22 49 6e 74 |t*     .|:.. "Int|
|00003cf0| 65 72 66 61 63 65 5f 53 | 65 6e 64 48 65 6c 70 22 |erface_S|endHelp"|
|00003d00| 2c 2c 62 6c 6f 63 6b 25 | 0d 18 7e 08 20 20 20 cb |,,block%|..~.   .|
|00003d10| 0d 18 88 3a 20 20 20 c9 | 20 26 34 30 30 43 32 3a |...:   .| &400C2:|
|00003d20| f2 67 65 74 73 63 72 65 | 65 6e 73 69 7a 65 28 53 |.getscre|ensize(S|
|00003d30| 63 72 65 65 6e 57 69 64 | 74 68 25 2c 53 63 72 65 |creenWid|th%,Scre|
|00003d40| 65 6e 48 65 69 67 68 74 | 25 29 0d 18 92 06 20 cb |enHeight|%).... .|
|00003d50| 0d 18 9c 06 20 e1 0d 18 | a6 06 20 3a 0d 18 b0 14 |.... ...|.. :....|
|00003d60| 20 dd 20 f2 72 61 6d 5f | 74 72 61 6e 73 6d 69 74 | . .ram_|transmit|
|00003d70| 0d 18 ba 42 20 e7 20 64 | 61 74 61 73 69 7a 65 25 |...B . d|atasize%|
|00003d80| 3e 62 6c 6f 63 6b 25 21 | 32 34 20 8c 20 74 6f 73 |>block%!|24 . tos|
|00003d90| 65 6e 64 25 3d 62 6c 6f | 63 6b 25 21 32 34 20 8b |end%=blo|ck%!24 .|
|00003da0| 20 74 6f 73 65 6e 64 25 | 3d 64 61 74 61 73 69 7a | tosend%|=datasiz|
|00003db0| 65 25 0d 18 c4 47 20 c8 | 99 20 22 57 69 6d 70 5f |e%...G .|. "Wimp_|
|00003dc0| 54 72 61 6e 73 66 65 72 | 42 6c 6f 63 6b 22 2c 6d |Transfer|Block",m|
|00003dd0| 79 74 61 73 6b 25 2c 72 | 61 6d 70 74 72 25 2c 62 |ytask%,r|amptr%,b|
|00003de0| 6c 6f 63 6b 25 21 34 2c | 62 6c 6f 63 6b 25 21 32 |lock%!4,|block%!2|
|00003df0| 30 2c 74 6f 73 65 6e 64 | 25 0d 18 ce 16 20 62 6c |0,tosend|%.... bl|
|00003e00| 6f 63 6b 25 21 32 34 3d | 74 6f 73 65 6e 64 25 0d |ock%!24=|tosend%.|
|00003e10| 18 d8 17 20 64 61 74 61 | 73 69 7a 65 25 2d 3d 74 |... data|size%-=t|
|00003e20| 6f 73 65 6e 64 25 0d 18 | e2 15 20 72 61 6d 70 74 |osend%..|.. rampt|
|00003e30| 72 25 2b 3d 74 6f 73 65 | 6e 64 25 0d 18 ec 17 20 |r%+=tose|nd%.... |
|00003e40| 62 6c 6f 63 6b 25 21 31 | 32 3d 62 6c 6f 63 6b 25 |block%!1|2=block%|
|00003e50| 21 38 0d 18 f6 10 20 62 | 6c 6f 63 6b 25 21 31 36 |!8.... b|lock%!16|
|00003e60| 3d 37 0d 19 00 3b 20 c8 | 99 20 22 57 69 6d 70 5f |=7...; .|. "Wimp_|
|00003e70| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 38 2b |SendMess|age",18+|
|00003e80| 28 64 61 74 61 73 69 7a | 65 25 3d 30 29 2c 62 6c |(datasiz|e%=0),bl|
|00003e90| 6f 63 6b 25 2c 62 6c 6f | 63 6b 25 21 34 0d 19 0a |ock%,blo|ck%!4...|
|00003ea0| 06 20 e1 0d 19 14 06 20 | 3a 0d 19 1e 19 20 dd 20 |. ..... |:.... . |
|00003eb0| f2 68 65 6c 70 5f 6d 65 | 73 73 61 67 65 28 77 69 |.help_me|ssage(wi|
|00003ec0| 25 29 0d 19 28 0d 20 c8 | 8e 20 77 69 25 20 ca 0d |%)..(. .|. wi% ..|
|00003ed0| 19 32 7d 20 20 20 c9 20 | 2d 32 3a f2 73 65 6e 64 |.2}   . |-2:.send|
|00003ee0| 5f 68 65 6c 70 28 22 54 | 68 69 73 20 69 73 20 74 |_help("T|his is t|
|00003ef0| 68 65 20 41 4c 65 76 65 | 6c 20 69 63 6f 6e 2c 20 |he ALeve|l icon, |
|00003f00| 73 68 6f 77 69 6e 67 20 | 74 68 61 74 20 74 68 65 |showing |that the|
|00003f10| 20 70 72 6f 67 72 61 6d | 20 69 73 20 72 75 6e 6e | program| is runn|
|00003f20| 69 6e 67 2e 20 43 6c 69 | 63 6b 20 53 45 4c 45 43 |ing. Cli|ck SELEC|
|00003f30| 54 20 74 6f 20 6f 70 65 | 6e 20 74 68 65 20 6d 61 |T to ope|n the ma|
|00003f40| 69 6e 20 77 69 6e 64 6f | 77 2e 22 29 0d 19 3c 67 |in windo|w.")..<g|
|00003f50| 20 20 20 c9 20 6c 69 73 | 74 57 25 3a f2 73 65 6e |   . lis|tW%:.sen|
|00003f60| 64 5f 68 65 6c 70 28 22 | 49 66 20 79 6f 75 20 77 |d_help("|If you w|
|00003f70| 69 73 68 20 74 6f 20 73 | 61 76 65 20 74 68 69 73 |ish to s|ave this|
|00003f80| 20 6c 69 73 74 20 63 6c | 69 63 6b 20 4d 45 4e 55 | list cl|ick MENU|
|00003f90| 20 6f 76 65 72 20 69 74 | 20 74 6f 20 64 69 73 70 | over it| to disp|
|00003fa0| 6c 61 79 20 74 68 65 20 | 53 61 76 65 20 62 6f 78 |lay the |Save box|
|00003fb0| 2e 22 29 0d 19 46 06 20 | cb 0d 19 50 06 20 e1 0d |.")..F. |...P. ..|
|00003fc0| 19 5a 06 20 3a 0d 19 64 | 15 20 dd 20 f2 73 65 6e |.Z. :..d|. . .sen|
|00003fd0| 64 5f 68 65 6c 70 28 48 | 24 29 0d 19 6e 10 20 21 |d_help(H|$)..n. !|
|00003fe0| 62 6c 6f 63 6b 25 3d 32 | 35 36 0d 19 78 13 20 62 |block%=2|56..x. b|
|00003ff0| 6c 6f 63 6b 25 21 31 32 | 3d 72 65 66 25 0d 19 82 |lock%!12|=ref%...|
|00004000| 13 20 62 6c 6f 63 6b 25 | 21 31 36 3d 26 35 30 33 |. block%|!16=&503|
|00004010| 0d 19 8c 14 20 24 28 62 | 6c 6f 63 6b 25 2b 32 30 |.... $(b|lock%+20|
|00004020| 29 3d 48 24 0d 19 96 2d | 20 c8 99 20 22 57 69 6d |)=H$...-| .. "Wim|
|00004030| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00004040| 37 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |7,block%|,block%!|
|00004050| 34 0d 19 a0 06 20 e1 0d | 19 aa 06 20 3a 0d 19 b4 |4.... ..|... :...|
|00004060| 20 20 dd 20 f2 72 65 70 | 6c 79 28 6d 65 73 73 74 |  . .rep|ly(messt|
|00004070| 79 70 65 25 2c 72 65 61 | 73 6f 6e 25 29 0d 19 be |ype%,rea|son%)...|
|00004080| 13 20 62 6c 6f 63 6b 25 | 21 31 32 3d 72 65 66 25 |. block%|!12=ref%|
|00004090| 0d 19 c8 16 20 62 6c 6f | 63 6b 25 21 31 36 3d 72 |.... blo|ck%!16=r|
|000040a0| 65 61 73 6f 6e 25 0d 19 | d2 31 20 c8 99 20 22 57 |eason%..|.1 .. "W|
|000040b0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|000040c0| 2c 6d 65 73 73 74 79 70 | 65 25 2c 62 6c 6f 63 6b |,messtyp|e%,block|
|000040d0| 25 2c 74 61 73 6b 25 0d | 19 dc 06 20 e1 0d 19 e6 |%,task%.|... ....|
|000040e0| 06 20 3a 0d 19 f0 48 20 | f4 20 2d 2d 2d 2d 2d 2d |. :...H |. ------|
|000040f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 45 6e 64 20 6f |--------|-- End o|
|00004100| 66 20 4d 65 73 73 61 67 | 65 20 68 61 6e 64 6c 69 |f Messag|e handli|
|00004110| 6e 67 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ng -----|--------|
|00004120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 19 fa 06 20 |--------|---.... |
|00004130| 3a 0d 1a 04 24 20 dd 20 | f2 69 6e 69 74 5f 64 72 |:...$ . |.init_dr|
|00004140| 61 67 28 77 69 25 2c 69 | 63 25 2c 64 72 61 67 74 |ag(wi%,i|c%,dragt|
|00004150| 79 70 65 25 29 0d 1a 0e | 1a 20 f2 67 65 74 73 63 |ype%)...|. .getsc|
|00004160| 72 65 65 6e 73 69 7a 65 | 28 57 25 2c 48 25 29 0d |reensize|(W%,H%).|
|00004170| 1a 18 10 20 21 62 6c 6f | 63 6b 25 3d 77 69 25 0d |... !blo|ck%=wi%.|
|00004180| 1a 22 25 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |."% .. "|Wimp_Get|
|00004190| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|000041a0| 6f 63 6b 25 0d 1a 2c 1e | 20 79 73 69 7a 65 25 3d |ock%..,.| ysize%=|
|000041b0| 62 6c 6f 63 6b 25 21 31 | 36 2d 62 6c 6f 63 6b 25 |block%!1|6-block%|
|000041c0| 21 38 0d 1a 36 1a 20 78 | 25 3d 62 6c 6f 63 6b 25 |!8..6. x|%=block%|
|000041d0| 21 34 2d 62 6c 6f 63 6b | 25 21 32 30 0d 1a 40 1b |!4-block|%!20..@.|
|000041e0| 20 79 25 3d 62 6c 6f 63 | 6b 25 21 31 36 2d 62 6c | y%=bloc|k%!16-bl|
|000041f0| 6f 63 6b 25 21 32 34 0d | 1a 4a 11 20 62 6c 6f 63 |ock%!24.|.J. bloc|
|00004200| 6b 25 21 34 3d 69 63 25 | 0d 1a 54 23 20 c8 99 20 |k%!4=ic%|..T# .. |
|00004210| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004220| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 1a 5e 20 20 |te",,blo|ck%..^  |
|00004230| 62 6c 6f 63 6b 25 21 38 | 2b 3d 78 25 3a 6d 69 6e |block%!8|+=x%:min|
|00004240| 78 25 3d 62 6c 6f 63 6b | 25 21 38 0d 1a 68 22 20 |x%=block|%!8..h" |
|00004250| 62 6c 6f 63 6b 25 21 31 | 32 2b 3d 79 25 3a 6d 69 |block%!1|2+=y%:mi|
|00004260| 6e 79 25 3d 62 6c 6f 63 | 6b 25 21 31 32 0d 1a 72 |ny%=bloc|k%!12..r|
|00004270| 22 20 62 6c 6f 63 6b 25 | 21 31 36 2b 3d 78 25 3a |" block%|!16+=x%:|
|00004280| 6d 61 78 78 25 3d 62 6c | 6f 63 6b 25 21 31 36 0d |maxx%=bl|ock%!16.|
|00004290| 1a 7c 22 20 62 6c 6f 63 | 6b 25 21 32 30 2b 3d 79 |.|" bloc|k%!20+=y|
|000042a0| 25 3a 6d 61 78 79 25 3d | 62 6c 6f 63 6b 25 21 32 |%:maxy%=|block%!2|
|000042b0| 30 0d 1a 86 14 20 e7 20 | 64 72 61 67 74 79 70 65 |0.... . |dragtype|
|000042c0| 25 3d 36 20 8c 0d 1a 90 | 36 20 20 20 62 6c 6f 63 |%=6 ....|6   bloc|
|000042d0| 6b 25 21 32 34 3d 32 2a | 6d 69 6e 78 25 2d 6d 61 |k%!24=2*|minx%-ma|
|000042e0| 78 78 25 3a 62 6c 6f 63 | 6b 25 21 33 36 3d 32 2a |xx%:bloc|k%!36=2*|
|000042f0| 6d 61 78 79 25 2d 6d 69 | 6e 79 25 0d 1a 9a 21 20 |maxy%-mi|ny%...! |
|00004300| 20 20 cc 20 62 6c 6f 63 | 6b 25 21 32 34 3d 30 3a |  . bloc|k%!24=0:|
|00004310| 62 6c 6f 63 6b 25 21 33 | 36 3d 48 25 0d 1a a4 06 |block%!3|6=H%....|
|00004320| 20 cd 0d 1a ae 10 20 62 | 6c 6f 63 6b 25 21 32 38 | ..... b|lock%!28|
|00004330| 3d 30 0d 1a b8 11 20 62 | 6c 6f 63 6b 25 21 33 32 |=0.... b|lock%!32|
|00004340| 3d 57 25 0d 1a c2 0e 20 | 21 62 6c 6f 63 6b 25 3d |=W%.... |!block%=|
|00004350| 30 0d 1a cc 17 20 62 6c | 6f 63 6b 25 21 34 3d 64 |0.... bl|ock%!4=d|
|00004360| 72 61 67 74 79 70 65 25 | 0d 1a d6 10 20 64 72 61 |ragtype%|.... dra|
|00004370| 67 67 69 6e 67 25 3d b9 | 0d 1a e0 1e 20 c8 99 20 |gging%=.|.... .. |
|00004380| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 2c |"Wimp_Dr|agBox",,|
|00004390| 62 6c 6f 63 6b 25 0d 1a | ea 06 20 e1 0d 1a f4 06 |block%..|.. .....|
|000043a0| 20 3a 0d 1a fe 1d 20 dd | 20 f2 65 6e 64 5f 64 72 | :.... .| .end_dr|
|000043b0| 61 67 28 73 74 61 72 74 | 25 2c 65 6e 64 25 29 0d |ag(start|%,end%).|
|000043c0| 1b 08 10 20 64 72 61 67 | 67 69 6e 67 25 3d a3 0d |... drag|ging%=..|
|000043d0| 1b 12 1a 20 64 61 74 61 | 73 69 7a 65 25 3d 65 6e |... data|size%=en|
|000043e0| 64 25 2d 73 74 61 72 74 | 25 0d 1b 1c 25 20 c8 99 |d%-start|%...% ..|
|000043f0| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00004400| 72 49 6e 66 6f 22 2c 2c | 62 6c 6f 63 6b 25 0d 1b |rInfo",,|block%..|
|00004410| 26 17 20 62 6c 6f 63 6b | 25 21 33 32 3d 62 6c 6f |&. block|%!32=blo|
|00004420| 63 6b 25 21 34 0d 1b 30 | 17 20 62 6c 6f 63 6b 25 |ck%!4..0|. block%|
|00004430| 21 32 38 3d 62 6c 6f 63 | 6b 25 21 30 0d 1b 3a 18 |!28=bloc|k%!0..:.|
|00004440| 20 62 6c 6f 63 6b 25 21 | 32 34 3d 62 6c 6f 63 6b | block%!|24=block|
|00004450| 25 21 31 36 0d 1b 44 18 | 20 62 6c 6f 63 6b 25 21 |%!16..D.| block%!|
|00004460| 32 30 3d 62 6c 6f 63 6b | 25 21 31 32 0d 1b 4e 10 |20=block|%!12..N.|
|00004470| 20 62 6c 6f 63 6b 25 21 | 31 36 3d 31 0d 1b 58 10 | block%!|16=1..X.|
|00004480| 20 62 6c 6f 63 6b 25 21 | 31 32 3d 30 0d 1b 62 18 | block%!|12=0..b.|
|00004490| 20 62 6c 6f 63 6b 25 21 | 33 36 3d 64 61 74 61 73 | block%!|36=datas|
|000044a0| 69 7a 65 25 0d 1b 6c 14 | 20 62 6c 6f 63 6b 25 21 |ize%..l.| block%!|
|000044b0| 34 30 3d 54 79 70 65 25 | 0d 1b 76 22 20 24 28 62 |40=Type%|..v" $(b|
|000044c0| 6c 6f 63 6b 25 2b 34 34 | 29 3d a4 6c 65 61 66 28 |lock%+44|)=.leaf(|
|000044d0| 46 69 6c 65 6e 61 6d 65 | 24 29 0d 1b 80 0f 20 21 |Filename|$).... !|
|000044e0| 62 6c 6f 63 6b 25 3d 36 | 30 0d 1b 8a 38 20 c8 99 |block%=6|0...8 ..|
|000044f0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00004500| 67 65 22 2c 31 37 2c 62 | 6c 6f 63 6b 25 2c 62 6c |ge",17,b|lock%,bl|
|00004510| 6f 63 6b 25 21 32 30 2c | 62 6c 6f 63 6b 25 21 32 |ock%!20,|block%!2|
|00004520| 34 0d 1b 94 13 20 72 61 | 6d 70 74 72 25 3d 73 74 |4.... ra|mptr%=st|
|00004530| 61 72 74 25 0d 1b 9e 1d | 20 c8 99 20 22 57 69 6d |art%....| .. "Wim|
|00004540| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 2d |p_Create|Menu",,-|
|00004550| 31 0d 1b a8 06 20 e1 0d | 1b b2 06 20 3a 0d 1b bc |1.... ..|... :...|
|00004560| 10 20 dd 20 a4 6c 65 61 | 66 28 73 24 29 0d 1b c6 |. . .lea|f(s$)...|
|00004570| 0b 20 73 32 24 3d 22 22 | 0d 1b d0 1a 20 c8 95 20 |. s2$=""|.... .. |
|00004580| c2 73 24 29 3c 3e 22 2e | 22 20 80 20 73 24 3c 3e |.s$)<>".|" . s$<>|
|00004590| 22 22 0d 1b da 13 20 20 | 20 73 32 24 3d c2 73 24 |""....  | s2$=.s$|
|000045a0| 29 2b 73 32 24 0d 1b e4 | 0e 20 20 20 73 24 3d c0 |)+s2$...|.   s$=.|
|000045b0| 73 24 29 0d 1b ee 06 20 | ce 0d 1b f8 09 20 3d 73 |s$).... |..... =s|
|000045c0| 32 24 0d 1c 02 06 20 3a | 0d 1c 0c 4b 20 f4 20 2d |2$.... :|...K . -|
|000045d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000045e0| 2d 2d 20 56 61 6c 69 64 | 61 74 69 6f 6e 20 74 61 |-- Valid|ation ta|
|000045f0| 62 6c 65 20 68 61 6e 64 | 6c 69 6e 67 20 2d 2d 2d |ble hand|ling ---|
|00004600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004610| 2d 2d 2d 0d 1c 16 06 20 | 3a 0d 1c 20 12 20 dd 20 |---.... |:.. . . |
|00004620| f2 67 65 74 5f 74 61 62 | 6c 65 73 0d 1c 2a 09 20 |.get_tab|les..*. |
|00004630| ea 20 49 25 0d 1c 34 30 | 20 f2 6c 6f 61 64 5f 74 |. I%..40| .load_t|
|00004640| 61 62 6c 65 28 64 61 74 | 61 62 61 73 65 24 2b 22 |able(dat|abase$+"|
|00004650| 2e 56 61 6c 54 61 62 6c | 65 73 2e 53 75 62 6a 65 |.ValTabl|es.Subje|
|00004660| 63 74 22 29 0d 1c 3e 2c | 20 f2 6c 6f 61 64 5f 74 |ct")..>,| .load_t|
|00004670| 61 62 6c 65 28 64 61 74 | 61 62 61 73 65 24 2b 22 |able(dat|abase$+"|
|00004680| 2e 56 61 6c 54 61 62 6c | 65 73 2e 41 67 72 22 29 |.ValTabl|es.Agr")|
|00004690| 0d 1c 48 06 20 e1 0d 1c | 52 06 20 3a 0d 1c 5c 16 |..H. ...|R. :..\.|
|000046a0| 20 dd 20 f2 6c 6f 61 64 | 5f 74 61 62 6c 65 28 66 | . .load|_table(f|
|000046b0| 24 29 0d 1c 66 11 20 ea | 20 70 6f 73 25 2c 6e 61 |$)..f. .| pos%,na|
|000046c0| 6d 65 24 0d 1c 70 14 20 | 6e 61 6d 65 24 3d a4 6c |me$..p. |name$=.l|
|000046d0| 65 61 66 28 66 24 29 0d | 1c 7a 26 20 c8 99 20 22 |eaf(f$).|.z& .. "|
|000046e0| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 66 24 20 b8 20 |OS_File"|,5,f$ . |
|000046f0| 64 25 2c 2c 2c 2c 74 61 | 62 6c 65 6e 25 0d 1c 84 |d%,,,,ta|blen%...|
|00004700| 3c 20 e7 20 64 25 3d 30 | 20 8c 20 85 20 6d 6f 61 |< . d%=0| . . moa|
|00004710| 6e 5f 65 72 72 25 2c 22 | 54 61 62 6c 65 20 27 22 |n_err%,"|Table '"|
|00004720| 2b 6e 61 6d 65 24 2b 22 | 27 20 6e 6f 74 20 66 6f |+name$+"|' not fo|
|00004730| 75 6e 64 22 2b bd 28 30 | 29 0d 1c 8e 12 20 4c 61 |und"+.(0|).... La|
|00004740| 73 74 54 61 62 6c 65 25 | 2b 3d 31 0d 1c 98 4a 20 |stTable%|+=1...J |
|00004750| f2 63 72 65 61 74 65 5f | 6e 61 6d 65 64 5f 73 6c |.create_|named_sl|
|00004760| 69 64 69 6e 67 5f 62 6c | 6f 63 6b 28 74 61 62 61 |iding_bl|ock(taba|
|00004770| 6e 63 68 6f 72 25 28 4c | 61 73 74 54 61 62 6c 65 |nchor%(L|astTable|
|00004780| 25 29 2c 28 74 61 62 6c | 65 6e 25 2b 33 29 20 80 |%),(tabl|en%+3) .|
|00004790| 20 ac 20 33 29 0d 1c a2 | 30 20 c8 99 20 22 4f 53 | . 3)...|0 .. "OS|
|000047a0| 5f 46 69 6c 65 22 2c 32 | 35 35 2c 66 24 2c 21 74 |_File",2|55,f$,!t|
|000047b0| 61 62 61 6e 63 68 6f 72 | 25 28 4c 61 73 74 54 61 |abanchor|%(LastTa|
|000047c0| 62 6c 65 25 29 0d 1c ac | 1d 20 74 61 62 6c 65 24 |ble%)...|. table$|
|000047d0| 28 4c 61 73 74 54 61 62 | 6c 65 25 29 3d 6e 61 6d |(LastTab|le%)=nam|
|000047e0| 65 24 0d 1c b6 06 20 e1 | 0d 1c c0 06 20 3a 0d 1c |e$.... .|.... :..|
|000047f0| ca 16 20 dd 20 a4 74 61 | 62 6c 65 5f 6e 61 6d 65 |.. . .ta|ble_name|
|00004800| 28 54 25 29 0d 1c d4 2d | 20 e7 20 54 25 3c 3d 4c |(T%)...-| . T%<=L|
|00004810| 61 73 74 54 61 62 6c 65 | 25 20 8c 3d 24 21 74 61 |astTable|% .=$!ta|
|00004820| 62 61 6e 63 68 6f 72 25 | 28 54 25 29 20 8b 3d 22 |banchor%|(T%) .="|
|00004830| 22 0d 1c de 06 20 3a 0d | 1c e8 18 20 dd 20 a4 74 |".... :.|... . .t|
|00004840| 61 62 6c 65 5f 6e 75 6d | 62 65 72 28 4e 24 29 0d |able_num|ber(N$).|
|00004850| 1c f2 0c 20 ea 20 54 25 | 2c 50 25 0d 1c fc 11 20 |... . T%|,P%.... |
|00004860| e7 20 4e 24 3d 22 22 20 | 8c 3d 2d 31 0d 1d 06 0a |. N$="" |.=-1....|
|00004870| 20 54 25 3d 2d 31 0d 1d | 10 06 20 f5 0d 1d 1a 0c | T%=-1..|.. .....|
|00004880| 20 20 20 54 25 2b 3d 31 | 0d 1d 24 24 20 fd 20 74 |   T%+=1|..$$ . t|
|00004890| 61 62 6c 65 24 28 54 25 | 29 3d 4e 24 20 84 20 54 |able$(T%|)=N$ . T|
|000048a0| 25 3e 4c 61 73 74 54 61 | 62 6c 65 25 0d 1d 2e 1e |%>LastTa|ble%....|
|000048b0| 20 e7 20 54 25 3e 4c 61 | 73 74 54 61 62 6c 65 25 | . T%>La|stTable%|
|000048c0| 20 8c 3d 2d 31 20 8b 3d | 54 25 0d 1d 38 06 20 3a | .=-1 .=|T%..8. :|
|000048d0| 0d 1d 42 2b 20 dd 20 a4 | 74 61 62 6c 65 5f 69 6e |..B+ . .|table_in|
|000048e0| 66 6f 28 54 25 2c f8 20 | 52 25 2c f8 20 46 25 2c |fo(T%,. |R%,. F%,|
|000048f0| f8 20 52 4c 25 2c 4c 25 | 28 29 29 0d 1d 4c 0c 20 |. RL%,L%|())..L. |
|00004900| ea 20 50 25 2c 49 25 0d | 1d 56 17 20 50 25 3d 21 |. P%,I%.|.V. P%=!|
|00004910| 74 61 62 61 6e 63 68 6f | 72 25 28 54 25 29 0d 1d |tabancho|r%(T%)..|
|00004920| 60 1b 20 52 25 3d bb 28 | 24 50 25 29 3a 50 25 2b |`. R%=.(|$P%):P%+|
|00004930| 3d a9 28 24 50 25 29 2b | 31 0d 1d 6a 1b 20 46 25 |=.($P%)+|1..j. F%|
|00004940| 3d bb 28 24 50 25 29 3a | 50 25 2b 3d a9 28 24 50 |=.($P%):|P%+=.($P|
|00004950| 25 29 2b 31 0d 1d 74 0a | 20 52 4c 25 3d 30 0d 1d |%)+1..t.| RL%=0..|
|00004960| 7e 10 20 e3 20 49 25 3d | 30 20 b8 20 46 25 0d 1d |~. . I%=|0 . F%..|
|00004970| 88 21 20 20 20 4c 25 28 | 49 25 29 3d bb 28 24 50 |.!   L%(|I%)=.($P|
|00004980| 25 29 3a 50 25 2b 3d a9 | 28 24 50 25 29 2b 31 0d |%):P%+=.|($P%)+1.|
|00004990| 1d 92 14 20 20 20 52 4c | 25 2b 3d 4c 25 28 49 25 |...   RL|%+=L%(I%|
|000049a0| 29 2b 31 0d 1d 9c 09 20 | ed 20 49 25 0d 1d a6 09 |)+1.... |. I%....|
|000049b0| 20 3d 24 50 25 0d 1d b0 | 06 20 3a 0d 1d ba 1c 20 | =$P%...|. :.... |
|000049c0| dd 20 a4 74 61 62 6c 65 | 5f 66 69 65 6c 64 28 46 |. .table|_field(F|
|000049d0| 25 2c 4c 25 28 29 29 0d | 1d c4 11 20 ea 20 49 25 |%,L%()).|... . I%|
|000049e0| 2c 50 25 3a 49 25 3d 31 | 0d 1d ce 0d 20 c8 95 20 |,P%:I%=1|.... .. |
|000049f0| 49 25 3c 46 25 0d 1d d8 | 13 20 20 20 50 25 2b 3d |I%<F%...|.   P%+=|
|00004a00| 4c 25 28 49 25 29 2b 31 | 0d 1d e2 0c 20 20 20 49 |L%(I%)+1|....   I|
|00004a10| 25 2b 3d 31 0d 1d ec 06 | 20 ce 0d 1d f6 08 20 3d |%+=1....| ..... =|
|00004a20| 50 25 0d 1e 00 06 20 3a | 0d 1e 0a 14 dd 20 a4 6e |P%.... :|..... .n|
|00004a30| 75 6d 62 65 72 28 53 24 | 2c 54 24 29 0d 1e 14 2f |umber(S$|,T$).../|
|00004a40| ea 20 54 25 2c 72 6f 77 | 25 2c 69 6e 64 25 2c 73 |. T%,row|%,ind%,s|
|00004a50| 74 61 72 74 25 2c 52 6f | 77 73 25 2c 52 65 63 25 |tart%,Ro|ws%,Rec%|
|00004a60| 2c 54 61 62 46 69 65 6c | 64 73 25 0d 1e 1e 18 54 |,TabFiel|ds%....T|
|00004a70| 25 3d a4 74 61 62 6c 65 | 5f 6e 75 6d 62 65 72 28 |%=.table|_number(|
|00004a80| 54 24 29 0d 1e 28 3b 54 | 24 3d a4 74 61 62 6c 65 |T$)..(;T|$=.table|
|00004a90| 5f 69 6e 66 6f 28 54 25 | 2c 52 6f 77 73 25 2c 54 |_info(T%|,Rows%,T|
|00004aa0| 61 62 46 69 65 6c 64 73 | 25 2c 52 65 63 25 2c 74 |abFields|%,Rec%,t|
|00004ab0| 61 62 66 69 65 6c 64 6c | 65 6e 25 28 29 29 0d 1e |abfieldl|en%())..|
|00004ac0| 32 23 73 74 61 72 74 25 | 3d 21 74 61 62 61 6e 63 |2#start%|=!tabanc|
|00004ad0| 68 6f 72 25 28 54 25 29 | 2b 31 36 30 2d 52 65 63 |hor%(T%)|+160-Rec|
|00004ae0| 25 0d 1e 3c 0d f5 20 72 | 6f 77 25 2b 3d 31 0d 1e |%..<.. r|ow%+=1..|
|00004af0| 46 1b 20 20 69 6e 64 25 | 3d 73 74 61 72 74 25 2b |F.  ind%|=start%+|
|00004b00| 72 6f 77 25 2a 52 65 63 | 25 0d 1e 50 1b fd 20 72 |row%*Rec|%..P.. r|
|00004b10| 6f 77 25 3e 52 6f 77 73 | 25 20 84 20 53 24 3d 24 |ow%>Rows|% . S$=$|
|00004b20| 69 6e 64 25 0d 1e 5a 1b | e7 20 72 6f 77 25 3e 52 |ind%..Z.|. row%>R|
|00004b30| 6f 77 73 25 20 8c 3d 30 | 20 8b 3d 72 6f 77 25 0d |ows% .=0| .=row%.|
|00004b40| 1e 64 05 3a 0d 1e 6e 14 | dd 20 a4 73 74 72 69 6e |.d.:..n.|. .strin|
|00004b50| 67 28 4e 25 2c 54 24 29 | 0d 1e 78 1e ea 20 54 25 |g(N%,T$)|..x.. T%|
|00004b60| 2c 52 6f 77 73 25 2c 52 | 65 63 25 2c 54 61 62 46 |,Rows%,R|ec%,TabF|
|00004b70| 69 65 6c 64 73 25 0d 1e | 82 18 54 25 3d a4 74 61 |ields%..|..T%=.ta|
|00004b80| 62 6c 65 5f 6e 75 6d 62 | 65 72 28 54 24 29 0d 1e |ble_numb|er(T$)..|
|00004b90| 8c 3b 54 24 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |.;T$=.ta|ble_info|
|00004ba0| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|00004bb0| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|00004bc0| 6c 64 6c 65 6e 25 28 29 | 29 0d 1e 96 2a 3d 24 28 |ldlen%()|)...*=$(|
|00004bd0| 21 74 61 62 61 6e 63 68 | 6f 72 25 28 54 25 29 2b |!tabanch|or%(T%)+|
|00004be0| 31 36 30 2b 28 52 65 63 | 25 2a 4e 25 29 2d 52 65 |160+(Rec|%*N%)-Re|
|00004bf0| 63 25 29 0d 1e a0 05 3a | 0d 1e aa 28 20 dd 20 a4 |c%)....:|...( . .|
|00004c00| 65 78 70 61 6e 64 28 73 | 74 72 69 6e 67 24 2c 74 |expand(s|tring$,t|
|00004c10| 61 62 6c 65 24 2c f8 20 | 45 78 70 4c 65 6e 25 29 |able$,. |ExpLen%)|
|00004c20| 0d 1e b4 45 20 ea 20 52 | 65 63 25 2c 73 24 2c 73 |...E . R|ec%,s$,s|
|00004c30| 74 61 72 74 25 2c 46 25 | 2c 49 25 2c 54 25 2c 69 |tart%,F%|,I%,T%,i|
|00004c40| 6e 64 25 2c 72 6f 77 25 | 2c 52 6f 77 73 25 2c 54 |nd%,row%|,Rows%,T|
|00004c50| 61 62 46 69 65 6c 64 73 | 25 2c 66 69 65 6c 64 25 |abFields|%,field%|
|00004c60| 2c 70 6f 73 25 0d 1e be | 3a 20 e7 20 74 61 62 6c |,pos%...|: . tabl|
|00004c70| 65 24 3d 22 22 20 8c 20 | 45 78 70 4c 65 6e 25 3d |e$="" . |ExpLen%=|
|00004c80| 30 3a 3d 73 74 72 69 6e | 67 24 3a f4 20 23 23 23 |0:=strin|g$:. ###|
|00004c90| 20 4e 6f 74 20 6c 69 6e | 6b 65 64 20 23 23 23 0d | Not lin|ked ###.|
|00004ca0| 1e c8 27 20 66 69 65 6c | 64 25 3d bb 28 c2 74 61 |..' fiel|d%=.(.ta|
|00004cb0| 62 6c 65 24 29 29 3a 74 | 61 62 6c 65 24 3d c0 74 |ble$)):t|able$=.t|
|00004cc0| 61 62 6c 65 24 29 0d 1e | d2 1d 20 54 25 3d a4 74 |able$)..|.. T%=.t|
|00004cd0| 61 62 6c 65 5f 6e 75 6d | 62 65 72 28 74 61 62 6c |able_num|ber(tabl|
|00004ce0| 65 24 29 0d 1e dc 3a 20 | e7 20 54 25 3c 30 20 8c |e$)...: |. T%<0 .|
|00004cf0| 20 45 78 70 4c 65 6e 25 | 3d 30 3a 3d 73 74 72 69 | ExpLen%|=0:=stri|
|00004d00| 6e 67 24 3a f4 20 23 23 | 23 20 54 61 62 6c 65 20 |ng$:. ##|# Table |
|00004d10| 6e 6f 74 20 66 6f 75 6e | 64 20 23 23 23 0d 1e e6 |not foun|d ###...|
|00004d20| 3c 20 54 24 3d a4 74 61 | 62 6c 65 5f 69 6e 66 6f |< T$=.ta|ble_info|
|00004d30| 28 54 25 2c 52 6f 77 73 | 25 2c 54 61 62 46 69 65 |(T%,Rows|%,TabFie|
|00004d40| 6c 64 73 25 2c 52 65 63 | 25 2c 74 61 62 66 69 65 |lds%,Rec|%,tabfie|
|00004d50| 6c 64 6c 65 6e 25 28 29 | 29 0d 1e f0 2d 20 70 6f |ldlen%()|)...- po|
|00004d60| 73 25 3d a4 74 61 62 6c | 65 5f 66 69 65 6c 64 28 |s%=.tabl|e_field(|
|00004d70| 66 69 65 6c 64 25 2c 74 | 61 62 66 69 65 6c 64 6c |field%,t|abfieldl|
|00004d80| 65 6e 25 28 29 29 0d 1e | fa 24 20 73 74 61 72 74 |en%())..|.$ start|
|00004d90| 25 3d 21 74 61 62 61 6e | 63 68 6f 72 25 28 54 25 |%=!taban|chor%(T%|
|00004da0| 29 2b 31 36 30 2d 52 65 | 63 25 0d 1f 04 0e 20 f5 |)+160-Re|c%.... .|
|00004db0| 20 72 6f 77 25 2b 3d 31 | 0d 1f 0e 21 20 20 20 69 | row%+=1|...!   i|
|00004dc0| 6e 64 25 3d 73 74 61 72 | 74 25 2b 72 6f 77 25 2a |nd%=star|t%+row%*|
|00004dd0| 52 65 63 25 2b 70 6f 73 | 25 0d 1f 18 21 20 fd 20 |Rec%+pos|%...! . |
|00004de0| 72 6f 77 25 3e 52 6f 77 | 73 25 20 84 20 24 69 6e |row%>Row|s% . $in|
|00004df0| 64 25 3d 73 74 72 69 6e | 67 24 0d 1f 22 38 20 e7 |d%=strin|g$.."8 .|
|00004e00| 20 72 6f 77 25 3e 52 6f | 77 73 25 20 8c 3d 73 74 | row%>Ro|ws% .=st|
|00004e10| 72 69 6e 67 24 3a f4 20 | 23 23 20 53 74 72 69 6e |ring$:. |## Strin|
|00004e20| 67 20 6e 6f 74 20 69 6e | 20 74 61 62 6c 65 20 23 |g not in| table #|
|00004e30| 23 23 0d 1f 2c 1a 20 69 | 6e 64 25 3d 73 74 61 72 |##..,. i|nd%=star|
|00004e40| 74 25 2b 72 6f 77 25 2a | 52 65 63 25 0d 1f 36 40 |t%+row%*|Rec%..6@|
|00004e50| 20 69 6e 64 25 2b 3d 74 | 61 62 66 69 65 6c 64 6c | ind%+=t|abfieldl|
|00004e60| 65 6e 25 28 30 29 2b 31 | 3a 73 24 3d 24 69 6e 64 |en%(0)+1|:s$=$ind|
|00004e70| 25 3a f4 20 23 23 23 20 | 52 65 74 75 72 6e 20 32 |%:. ### |Return 2|
|00004e80| 6e 64 20 66 69 65 6c 64 | 20 23 23 23 0d 1f 40 08 |nd field| ###..@.|
|00004e90| 20 3d 73 24 0d 1f 4a 06 | 20 3a 0d 1f 54 12 20 dd | =s$..J.| :..T. .|
|00004ea0| 20 a4 70 61 64 28 73 24 | 2c 4c 25 29 0d 1f 5e 10 | .pad(s$|,L%)..^.|
|00004eb0| 20 c8 95 20 a9 28 73 24 | 29 3c 4c 25 0d 1f 68 0e | .. .(s$|)<L%..h.|
|00004ec0| 20 20 20 73 24 2b 3d 22 | 20 22 0d 1f 72 06 20 ce |   s$+="| "..r. .|
|00004ed0| 0d 1f 7c 08 20 3d 73 24 | 0d 1f 86 06 20 3a 0d 1f |..|. =s$|.... :..|
|00004ee0| 90 4b 20 f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.K . ---|--------|
|00004ef0| 2d 2d 20 45 6e 64 20 6f | 66 20 56 61 6c 69 64 61 |-- End o|f Valida|
|00004f00| 74 69 6f 6e 20 74 61 62 | 6c 65 20 68 61 6e 64 6c |tion tab|le handl|
|00004f10| 69 6e 67 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ing ----|--------|
|00004f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 1f 9a 06 20 3a 0d |--------|-.... :.|
|00004f30| 1f a4 17 20 dd 20 a4 73 | 74 72 69 70 73 70 61 63 |... . .s|tripspac|
|00004f40| 65 73 28 73 24 29 0d 1f | ae 29 20 e7 20 c2 73 24 |es(s$)..|.) . .s$|
|00004f50| 29 3d 22 20 22 20 8c 3d | a4 73 74 72 69 70 73 70 |)=" " .=|.stripsp|
|00004f60| 61 63 65 73 28 c0 73 24 | 29 29 20 8b 3d 73 24 0d |aces(.s$|)) .=s$.|
|00004f70| 1f b8 06 20 3a 0d 1f c2 | 12 20 dd 20 a4 67 65 74 |... :...|. . .get|
|00004f80| 73 74 72 28 70 25 29 0d | 1f cc 09 20 ea 20 70 24 |str(p%).|... . p$|
|00004f90| 0d 1f d6 0e 20 c8 95 20 | 3f 70 25 3e 33 31 0d 1f |.... .. |?p%>31..|
|00004fa0| e0 11 20 20 20 70 24 2b | 3d bd 28 3f 70 25 29 0d |..   p$+|=.(?p%).|
|00004fb0| 1f ea 0c 20 20 20 70 25 | 2b 3d 31 0d 1f f4 06 20 |...   p%|+=1.... |
|00004fc0| ce 0d 1f fe 08 20 3d 70 | 24 0d 20 08 06 20 3a 0d |..... =p|$. .. :.|
|00004fd0| 20 12 2d 20 dd 20 f2 67 | 65 74 73 63 72 65 65 6e | .- . .g|etscreen|
|00004fe0| 73 69 7a 65 28 f8 20 53 | 5f 57 69 64 74 68 25 2c |size(. S|_Width%,|
|00004ff0| f8 20 53 5f 48 65 69 67 | 68 74 25 29 0d 20 1c 0b |. S_Heig|ht%). ..|
|00005000| 20 ea 20 45 6e 64 25 0d | 20 26 25 20 48 31 25 3d | . End%.| &% H1%=|
|00005010| 30 3a 56 31 25 3d 34 3a | 48 32 25 3d 38 3a 56 32 |0:V1%=4:|H2%=8:V2|
|00005020| 25 3d 31 32 3a 45 6e 64 | 25 3d 31 36 0d 20 30 3a |%=12:End|%=16. 0:|
|00005030| 20 4d 69 25 21 48 31 25 | 3d 34 3a 4d 69 25 21 56 | Mi%!H1%|=4:Mi%!V|
|00005040| 31 25 3d 35 3a 4d 69 25 | 21 48 32 25 3d 31 31 3a |1%=5:Mi%|!H2%=11:|
|00005050| 4d 69 25 21 56 32 25 3d | 31 32 3a 4d 69 25 21 45 |Mi%!V2%=|12:Mi%!E|
|00005060| 6e 64 25 3d 2d 31 0d 20 | 3a 25 20 c8 99 20 22 4f |nd%=-1. |:% .. "O|
|00005070| 53 5f 52 65 61 64 56 64 | 75 56 61 72 69 61 62 6c |S_ReadVd|uVariabl|
|00005080| 65 73 22 2c 4d 69 25 2c | 4d 6f 25 0d 20 44 2a 20 |es",Mi%,|Mo%. D* |
|00005090| 53 5f 57 69 64 74 68 25 | 3d 28 31 3c 3c 28 4d 6f |S_Width%|=(1<<(Mo|
|000050a0| 25 21 48 31 25 29 29 2a | 28 28 4d 6f 25 21 48 32 |%!H1%))*|((Mo%!H2|
|000050b0| 25 29 2b 31 29 0d 20 4e | 2b 20 53 5f 48 65 69 67 |%)+1). N|+ S_Heig|
|000050c0| 68 74 25 3d 28 31 3c 3c | 28 4d 6f 25 21 56 31 25 |ht%=(1<<|(Mo%!V1%|
|000050d0| 29 29 2a 28 28 4d 6f 25 | 21 56 32 25 29 2b 31 29 |))*((Mo%|!V2%)+1)|
|000050e0| 0d 20 58 06 20 e1 0d 20 | 62 06 20 3a 0d 20 6c 4a |. X. .. |b. :. lJ|
|000050f0| 20 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | . -----|--------|
|00005100| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 4d 69 73 63 65 |--- End |of Misce|
|00005110| 6c 6c 61 6e 65 6f 75 73 | 20 72 6f 75 74 69 6e 65 |llaneous| routine|
|00005120| 73 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s ------|--------|
|00005130| 2d 2d 2d 2d 2d 2d 0d 20 | 76 06 20 3a 0d 20 80 06 |------. |v. :. ..|
|00005140| 20 3a 0d 20 8a 06 20 3a | 0d 20 94 49 f4 20 2d 2d | :. .. :|. .I. --|
|00005150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005160| 2d 2d 2d 2d 20 48 65 61 | 70 20 4d 61 6e 61 67 65 |---- Hea|p Manage|
|00005170| 72 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |r ------|--------|
|00005180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005190| 2d 0d 20 9e 05 3a 0d 20 | a8 26 f4 20 2d 2d 2d 20 |-. ..:. |.&. --- |
|000051a0| 53 4c 49 44 49 4e 47 20 | 48 45 41 50 20 32 2e 30 |SLIDING |HEAP 2.0|
|000051b0| 30 20 50 52 4f 43 45 44 | 55 52 45 53 0d 20 b2 05 |0 PROCED|URES. ..|
|000051c0| 3a 0d 20 bc 1f f4 20 72 | 65 71 75 69 72 65 73 20 |:. ... r|equires |
|000051d0| 53 6c 69 64 69 6e 67 48 | 65 61 70 20 32 2e 30 30 |SlidingH|eap 2.00|
|000051e0| 0d 20 c6 05 3a 0d 20 d0 | 16 f4 20 6d 6f 64 75 6c |. ..:. .|.. modul|
|000051f0| 65 20 61 6e 64 20 50 52 | 4f 43 73 0d 20 da 1a f4 |e and PR|OCs. ...|
|00005200| 20 a9 20 53 74 65 76 65 | 6e 20 48 61 73 6c 61 6d | . Steve|n Haslam|
|00005210| 20 31 39 39 32 0d 20 e4 | 05 3a 0d 20 ee 15 dd 20 | 1992. .|.:. ... |
|00005220| a4 5f 68 65 61 70 5f 73 | 6c 6f 74 73 69 7a 65 0d |._heap_s|lotsize.|
|00005230| 20 f8 09 ea 20 52 30 25 | 0d 21 02 22 c8 99 20 22 | ... R0%|.!.".. "|
|00005240| 57 69 6d 70 5f 53 6c 6f | 74 53 69 7a 65 22 2c 2d |Wimp_Slo|tSize",-|
|00005250| 31 2c 2d 31 20 b8 20 52 | 30 25 0d 21 0c 08 3d 52 |1,-1 . R|0%.!..=R|
|00005260| 30 25 0d 21 16 05 3a 0d | 21 20 2f dd 20 a4 5f 68 |0%.!..:.|! /. ._h|
|00005270| 65 61 70 5f 6e 75 6d 74 | 6f 73 74 72 28 64 25 2c |eap_numt|ostr(d%,|
|00005280| 6e 25 29 3d c2 c4 64 25 | 2c 22 30 22 29 2b c3 7e |n%)=..d%|,"0")+.~|
|00005290| 6e 25 2c 64 25 29 0d 21 | 2a 2f dd 20 a4 5f 68 65 |n%,d%).!|*/. ._he|
|000052a0| 61 70 5f 73 6e 75 6d 74 | 6f 73 74 72 28 64 25 2c |ap_snumt|ostr(d%,|
|000052b0| 6e 25 29 3d c2 c4 64 25 | 2c 22 20 22 29 2b c3 6e |n%)=..d%|," ")+.n|
|000052c0| 25 2c 64 25 29 0d 21 34 | 05 3a 0d 21 3e 10 dd 20 |%,d%).!4|.:.!>.. |
|000052d0| f2 68 65 61 70 73 69 6e | 66 6f 0d 21 48 37 c8 99 |.heapsin|fo.!H7..|
|000052e0| 20 22 4f 53 5f 48 65 61 | 70 22 2c 31 2c 66 69 78 | "OS_Hea|p",1,fix|
|000052f0| 65 64 68 65 61 70 62 61 | 73 65 25 20 b8 20 2c 2c |edheapba|se% . ,,|
|00005300| 62 69 67 62 6c 6f 63 25 | 2c 74 6f 74 66 72 65 65 |bigbloc%|,totfree|
|00005310| 25 0d 21 52 12 f1 20 22 | 46 69 78 65 64 20 68 65 |%.!R.. "|Fixed he|
|00005320| 61 70 22 0d 21 5c 12 f1 | 20 22 2d 2d 2d 2d 2d 20 |ap".!\..| "----- |
|00005330| 2d 2d 2d 2d 22 0d 21 66 | 3a f1 20 22 48 65 61 70 |----".!f|:. "Heap|
|00005340| 20 62 61 73 65 20 20 20 | 20 3a 20 26 22 3b a4 5f | base   | : &";._|
|00005350| 68 65 61 70 5f 6e 75 6d | 74 6f 73 74 72 28 38 2c |heap_num|tostr(8,|
|00005360| 66 69 78 65 64 68 65 61 | 70 62 61 73 65 25 29 0d |fixedhea|pbase%).|
|00005370| 21 70 35 f1 20 22 48 65 | 61 70 20 73 69 7a 65 20 |!p5. "He|ap size |
|00005380| 20 20 20 3a 20 22 3b a4 | 5f 68 65 61 70 5f 62 79 |   : ";.|_heap_by|
|00005390| 74 65 73 32 28 66 69 78 | 65 64 68 65 61 70 73 69 |tes2(fix|edheapsi|
|000053a0| 7a 65 25 29 0d 21 7a 2f | f1 20 22 4c 61 72 67 65 |ze%).!z/|. "Large|
|000053b0| 73 74 20 66 72 65 65 20 | 3a 20 22 3b a4 5f 68 65 |st free |: ";._he|
|000053c0| 61 70 5f 62 79 74 65 73 | 32 28 62 69 67 62 6c 6f |ap_bytes|2(bigblo|
|000053d0| 63 25 29 0d 21 84 2f f1 | 20 22 54 6f 74 61 6c 20 |c%).!./.| "Total |
|000053e0| 66 72 65 65 20 20 20 3a | 20 22 3b a4 5f 68 65 61 |free   :| ";._hea|
|000053f0| 70 5f 62 79 74 65 73 32 | 28 74 6f 74 66 72 65 65 |p_bytes2|(totfree|
|00005400| 25 29 0d 21 8e 05 f1 0d | 21 98 14 f1 20 22 53 6c |%).!....|!... "Sl|
|00005410| 69 64 69 6e 67 20 68 65 | 61 70 22 0d 21 a2 14 f1 |iding he|ap".!...|
|00005420| 20 22 2d 2d 2d 2d 2d 2d | 2d 20 2d 2d 2d 2d 22 0d | "------|- ----".|
|00005430| 21 ac 2e c8 99 20 22 53 | 6c 69 64 69 6e 67 48 65 |!.... "S|lidingHe|
|00005440| 61 70 5f 48 65 61 70 49 | 6e 66 6f 22 2c 73 6c 69 |ap_HeapI|nfo",sli|
|00005450| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 0d 21 b6 |dingheap|base%.!.|
|00005460| 05 e1 0d 21 c0 05 3a 0d | 21 ca 17 dd 20 a4 5f 68 |...!..:.|!... ._h|
|00005470| 65 61 70 5f 70 61 67 65 | 75 70 28 6e 25 29 0d 21 |eap_page|up(n%).!|
|00005480| d4 09 ea 20 52 30 25 0d | 21 de 20 c8 99 20 22 4f |... R0%.|!. .. "O|
|00005490| 53 5f 52 65 61 64 4d 65 | 6d 4d 61 70 49 6e 66 6f |S_ReadMe|mMapInfo|
|000054a0| 22 20 b8 20 52 30 25 0d | 21 e8 1b 3d 28 6e 25 2b |" . R0%.|!..=(n%+|
|000054b0| 52 30 25 2d 31 29 20 80 | 20 ac 20 28 52 30 25 2d |R0%-1) .| . (R0%-|
|000054c0| 31 29 0d 21 f2 05 3a 0d | 21 fc 2a dd 20 f2 69 6e |1).!..:.|!.*. .in|
|000054d0| 69 74 68 65 61 70 73 28 | 68 65 61 70 73 69 7a 65 |itheaps(|heapsize|
|000054e0| 25 2c 73 6c 69 64 69 6e | 67 62 6c 6f 63 6b 73 25 |%,slidin|gblocks%|
|000054f0| 29 0d 22 06 1c 66 69 78 | 65 64 68 65 61 70 73 69 |)."..fix|edheapsi|
|00005500| 7a 65 25 3d 68 65 61 70 | 73 69 7a 65 25 0d 22 10 |ze%=heap|size%.".|
|00005510| 4c 68 65 61 70 5f 74 72 | 69 67 67 65 72 25 3d a4 |Lheap_tr|igger%=.|
|00005520| 5f 68 65 61 70 5f 70 61 | 67 65 75 70 28 93 2b 66 |_heap_pa|geup(.+f|
|00005530| 69 78 65 64 68 65 61 70 | 73 69 7a 65 25 2b 32 30 |ixedheap|size%+20|
|00005540| 2b 32 30 2a 73 6c 69 64 | 69 6e 67 62 6c 6f 63 6b |+20*slid|ingblock|
|00005550| 73 25 2d 26 38 30 30 30 | 29 0d 22 1a 1f f2 73 65 |s%-&8000|)."...se|
|00005560| 74 73 6c 6f 74 73 69 7a | 65 28 68 65 61 70 5f 74 |tslotsiz|e(heap_t|
|00005570| 72 69 67 67 65 72 25 29 | 0d 22 24 47 e7 20 a4 5f |rigger%)|."$G. ._|
|00005580| 68 65 61 70 5f 73 6c 6f | 74 73 69 7a 65 3c 68 65 |heap_slo|tsize<he|
|00005590| 61 70 5f 74 72 69 67 67 | 65 72 25 20 8c 20 85 20 |ap_trigg|er% . . |
|000055a0| 31 33 30 2c 22 55 6e 61 | 62 6c 65 20 74 6f 20 69 |130,"Una|ble to i|
|000055b0| 6e 69 74 69 61 6c 69 73 | 65 20 68 65 61 70 22 0d |nitialis|e heap".|
|000055c0| 22 2e 14 66 69 78 65 64 | 68 65 61 70 62 61 73 65 |"..fixed|heapbase|
|000055d0| 25 3d 93 0d 22 38 25 73 | 6c 69 64 69 6e 67 68 65 |%=.."8%s|lidinghe|
|000055e0| 61 70 62 61 73 65 25 3d | 93 2b 66 69 78 65 64 68 |apbase%=|.+fixedh|
|000055f0| 65 61 70 73 69 7a 65 25 | 0d 22 42 31 c8 99 20 22 |eapsize%|."B1.. "|
|00005600| 4f 53 5f 48 65 61 70 22 | 2c 30 2c 66 69 78 65 64 |OS_Heap"|,0,fixed|
|00005610| 68 65 61 70 62 61 73 65 | 25 2c 2c 66 69 78 65 64 |heapbase|%,,fixed|
|00005620| 68 65 61 70 73 69 7a 65 | 25 0d 22 4c 3d c8 99 20 |heapsize|%."L=.. |
|00005630| 22 53 6c 69 64 69 6e 67 | 48 65 61 70 5f 43 72 65 |"Sliding|Heap_Cre|
|00005640| 61 74 65 22 2c 73 6c 69 | 64 69 6e 67 68 65 61 70 |ate",sli|dingheap|
|00005650| 62 61 73 65 25 2c 32 2c | 73 6c 69 64 69 6e 67 62 |base%,2,|slidingb|
|00005660| 6c 6f 63 6b 73 25 0d 22 | 56 30 c8 99 20 22 53 6c |locks%."|V0.. "Sl|
|00005670| 69 64 69 6e 67 48 65 61 | 70 5f 56 65 72 69 66 79 |idingHea|p_Verify|
|00005680| 48 65 61 70 22 2c 73 6c | 69 64 69 6e 67 68 65 61 |Heap",sl|idinghea|
|00005690| 70 62 61 73 65 25 0d 22 | 60 05 e1 0d 22 6a 05 3a |pbase%."|`..."j.:|
|000056a0| 0d 22 74 15 dd 20 a4 5f | 68 65 61 70 5f 6e 65 78 |."t.. ._|heap_nex|
|000056b0| 74 66 72 65 65 0d 22 7e | 0f ea 20 6e 65 78 74 66 |tfree."~|.. nextf|
|000056c0| 72 65 65 25 0d 22 88 3a | c8 99 20 22 53 6c 69 64 |ree%.".:|.. "Slid|
|000056d0| 69 6e 67 48 65 61 70 5f | 4e 65 78 74 46 72 65 65 |ingHeap_|NextFree|
|000056e0| 22 2c 73 6c 69 64 69 6e | 67 68 65 61 70 62 61 73 |",slidin|gheapbas|
|000056f0| 65 25 20 b8 20 6e 65 78 | 74 66 72 65 65 25 0d 22 |e% . nex|tfree%."|
|00005700| 92 0e 3d 6e 65 78 74 66 | 72 65 65 25 0d 22 9c 05 |..=nextf|ree%."..|
|00005710| 3a 0d 22 a6 13 dd 20 f2 | 64 65 73 74 72 6f 79 68 |:."... .|destroyh|
|00005720| 65 61 70 73 0d 22 b0 19 | f2 73 65 74 73 6c 6f 74 |eaps."..|.setslot|
|00005730| 73 69 7a 65 28 93 2d 26 | 38 30 30 30 29 0d 22 ba |size(.-&|8000).".|
|00005740| 05 e1 0d 22 c4 05 3a 0d | 22 ce 24 dd 20 a4 5f 68 |..."..:.|".$. ._h|
|00005750| 65 61 70 5f 77 6f 72 64 | 75 70 28 78 25 29 3d 28 |eap_word|up(x%)=(|
|00005760| 78 25 2b 33 29 20 80 20 | ac 20 33 0d 22 d8 05 3a |x%+3) . |. 3."..:|
|00005770| 0d 22 e2 1b dd 20 a4 63 | 72 65 61 74 65 5f 61 6e |."... .c|reate_an|
|00005780| 63 68 6f 72 28 6e 61 6d | 65 24 29 0d 22 ec 0c ea |chor(nam|e$)."...|
|00005790| 20 73 70 61 63 65 25 0d | 22 f6 17 de 20 73 70 61 | space%.|"... spa|
|000057a0| 63 65 25 20 34 2b a9 6e | 61 6d 65 24 2b 31 0d 23 |ce% 4+.n|ame$+1.#|
|000057b0| 00 0d 21 73 70 61 63 65 | 25 3d 30 0d 23 0a 15 24 |..!space|%=0.#..$|
|000057c0| 28 73 70 61 63 65 25 2b | 34 29 3d 6e 61 6d 65 24 |(space%+|4)=name$|
|000057d0| 0d 23 14 0b 3d 73 70 61 | 63 65 25 0d 23 1e 05 3a |.#..=spa|ce%.#..:|
|000057e0| 0d 23 28 30 dd 20 f2 63 | 72 65 61 74 65 5f 6e 61 |.#(0. .c|reate_na|
|000057f0| 6d 65 64 5f 73 6c 69 64 | 69 6e 67 5f 62 6c 6f 63 |med_slid|ing_bloc|
|00005800| 6b 28 61 6e 63 68 6f 72 | 25 2c 73 69 7a 65 25 29 |k(anchor|%,size%)|
|00005810| 0d 23 32 0e ea 20 74 72 | 79 73 69 7a 65 25 0d 23 |.#2.. tr|ysize%.#|
|00005820| 3c 1e 73 69 7a 65 25 3d | a4 5f 68 65 61 70 5f 77 |<.size%=|._heap_w|
|00005830| 6f 72 64 75 70 28 73 69 | 7a 65 25 29 0d 23 46 37 |ordup(si|ze%).#F7|
|00005840| 74 72 79 73 69 7a 65 25 | 3d a4 5f 68 65 61 70 5f |trysize%|=._heap_|
|00005850| 70 61 67 65 75 70 28 a4 | 5f 68 65 61 70 5f 6e 65 |pageup(.|_heap_ne|
|00005860| 78 74 66 72 65 65 2b 73 | 69 7a 65 25 2d 26 37 46 |xtfree+s|ize%-&7F|
|00005870| 46 34 29 0d 23 50 1e e7 | 20 74 72 79 73 69 7a 65 |F4).#P..| trysize|
|00005880| 25 3e 68 65 61 70 5f 74 | 72 69 67 67 65 72 25 20 |%>heap_t|rigger% |
|00005890| 8c 0d 23 5a 1d 20 20 20 | f2 73 65 74 73 6c 6f 74 |..#Z.   |.setslot|
|000058a0| 73 69 7a 65 28 74 72 79 | 73 69 7a 65 25 29 0d 23 |size(try|size%).#|
|000058b0| 64 23 20 20 20 e7 20 a4 | 5f 68 65 61 70 5f 73 6c |d#   . .|_heap_sl|
|000058c0| 6f 74 73 69 7a 65 3c 74 | 72 79 73 69 7a 65 25 20 |otsize<t|rysize% |
|000058d0| 8c 0d 23 6e 25 20 20 20 | 20 20 20 f2 73 65 74 73 |..#n%   |   .sets|
|000058e0| 6c 6f 74 73 69 7a 65 28 | 68 65 61 70 5f 74 72 69 |lotsize(|heap_tri|
|000058f0| 67 67 65 72 25 29 0d 23 | 78 46 20 20 20 20 20 20 |gger%).#|xF      |
|00005900| 85 20 31 33 31 2c 22 4e | 6f 74 20 65 6e 6f 75 67 |. 131,"N|ot enoug|
|00005910| 68 20 72 6f 6f 6d 20 74 | 6f 20 63 72 65 61 74 65 |h room t|o create|
|00005920| 20 62 6c 6f 63 6b 20 22 | 22 22 2b 24 28 61 6e 63 | block "|""+$(anc|
|00005930| 68 6f 72 25 2b 34 29 2b | 22 22 22 22 0d 23 82 08 |hor%+4)+|"""".#..|
|00005940| 20 20 20 cc 0d 23 8c 20 | 20 20 20 20 20 20 68 65 |   ..#. |      he|
|00005950| 61 70 5f 74 72 69 67 67 | 65 72 25 3d 74 72 79 73 |ap_trigg|er%=trys|
|00005960| 69 7a 65 25 0d 23 96 08 | 20 20 20 cd 0d 23 a0 05 |ize%.#..|   ..#..|
|00005970| cd 0d 23 aa 46 c8 99 20 | 22 53 6c 69 64 69 6e 67 |..#.F.. |"Sliding|
|00005980| 48 65 61 70 5f 4e 65 77 | 42 6c 6f 63 6b 22 2c 73 |Heap_New|Block",s|
|00005990| 6c 69 64 69 6e 67 68 65 | 61 70 62 61 73 65 25 2c |lidinghe|apbase%,|
|000059a0| 61 6e 63 68 6f 72 25 2c | 73 69 7a 65 25 2c 61 6e |anchor%,|size%,an|
|000059b0| 63 68 6f 72 25 2b 34 0d | 23 b4 30 c8 99 20 22 53 |chor%+4.|#.0.. "S|
|000059c0| 6c 69 64 69 6e 67 48 65 | 61 70 5f 56 65 72 69 66 |lidingHe|ap_Verif|
|000059d0| 79 48 65 61 70 22 2c 73 | 6c 69 64 69 6e 67 68 65 |yHeap",s|lidinghe|
|000059e0| 61 70 62 61 73 65 25 0d | 23 be 05 e1 0d 23 c8 05 |apbase%.|#....#..|
|000059f0| 3a 0d 23 d2 23 dd 20 f2 | 73 63 72 61 70 5f 73 6c |:.#.#. .|scrap_sl|
|00005a00| 69 64 69 6e 67 5f 62 6c | 6f 63 6b 28 61 6e 63 68 |iding_bl|ock(anch|
|00005a10| 6f 72 25 29 0d 23 dc 14 | e7 20 21 61 6e 63 68 6f |or%).#..|. !ancho|
|00005a20| 72 25 3d 30 20 8c 20 e1 | 0d 23 e6 38 c8 99 20 22 |r%=0 . .|.#.8.. "|
|00005a30| 53 6c 69 64 69 6e 67 48 | 65 61 70 5f 53 63 72 61 |SlidingH|eap_Scra|
|00005a40| 70 42 6c 6f 63 6b 22 2c | 73 6c 69 64 69 6e 67 68 |pBlock",|slidingh|
|00005a50| 65 61 70 62 61 73 65 25 | 2c 61 6e 63 68 6f 72 25 |eapbase%|,anchor%|
|00005a60| 0d 23 f0 31 74 72 79 73 | 69 7a 65 25 3d a4 5f 68 |.#.1trys|ize%=._h|
|00005a70| 65 61 70 5f 70 61 67 65 | 75 70 28 a4 5f 68 65 61 |eap_page|up(._hea|
|00005a80| 70 5f 6e 65 78 74 66 72 | 65 65 2d 26 37 46 46 43 |p_nextfr|ee-&7FFC|
|00005a90| 29 0d 23 fa 1f e7 20 74 | 72 79 73 69 7a 65 25 3c |).#... t|rysize%<|
|00005aa0| 3e 68 65 61 70 5f 74 72 | 69 67 67 65 72 25 20 8c |>heap_tr|igger% .|
|00005ab0| 0d 24 04 1d 20 20 20 f2 | 73 65 74 73 6c 6f 74 73 |.$..   .|setslots|
|00005ac0| 69 7a 65 28 74 72 79 73 | 69 7a 65 25 29 0d 24 0e |ize(trys|ize%).$.|
|00005ad0| 1d 20 20 20 68 65 61 70 | 5f 74 72 69 67 67 65 72 |.   heap|_trigger|
|00005ae0| 25 3d 74 72 79 73 69 7a | 65 25 0d 24 18 05 cd 0d |%=trysiz|e%.$....|
|00005af0| 24 22 0e 21 61 6e 63 68 | 6f 72 25 3d 30 0d 24 2c |$".!anch|or%=0.$,|
|00005b00| 30 c8 99 20 22 53 6c 69 | 64 69 6e 67 48 65 61 70 |0.. "Sli|dingHeap|
|00005b10| 5f 56 65 72 69 66 79 48 | 65 61 70 22 2c 73 6c 69 |_VerifyH|eap",sli|
|00005b20| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 0d 24 36 |dingheap|base%.$6|
|00005b30| 05 e1 0d 24 40 05 3a 0d | 24 4a 1c dd 20 f2 73 65 |...$@.:.|$J.. .se|
|00005b40| 74 73 6c 6f 74 73 69 7a | 65 28 6e 65 77 73 69 7a |tslotsiz|e(newsiz|
|00005b50| 65 25 29 0d 24 54 22 c8 | 99 20 22 57 69 6d 70 5f |e%).$T".|. "Wimp_|
|00005b60| 53 6c 6f 74 53 69 7a 65 | 22 2c 6e 65 77 73 69 7a |SlotSize|",newsiz|
|00005b70| 65 25 2c 2d 31 0d 24 5e | 05 e1 0d 24 68 05 3a 0d |e%,-1.$^|...$h.:.|
|00005b80| 24 72 33 dd 20 f2 65 78 | 74 65 6e 64 5f 6e 61 6d |$r3. .ex|tend_nam|
|00005b90| 65 64 5f 73 6c 69 64 69 | 6e 67 5f 62 6c 6f 63 6b |ed_slidi|ng_block|
|00005ba0| 28 61 6e 63 68 6f 72 25 | 2c 6e 65 77 73 69 7a 65 |(anchor%|,newsize|
|00005bb0| 25 29 0d 24 7c 42 e7 20 | 21 61 6e 63 68 6f 72 25 |%).$|B. |!anchor%|
|00005bc0| 3d 30 20 8c 20 f2 63 72 | 65 61 74 65 5f 6e 61 6d |=0 . .cr|eate_nam|
|00005bd0| 65 64 5f 73 6c 69 64 69 | 6e 67 5f 62 6c 6f 63 6b |ed_slidi|ng_block|
|00005be0| 28 61 6e 63 68 6f 72 25 | 2c 6e 65 77 73 69 7a 65 |(anchor%|,newsize|
|00005bf0| 25 29 3a e1 0d 24 86 41 | e7 20 21 61 6e 63 68 6f |%):..$.A|. !ancho|
|00005c00| 72 25 3e a4 5f 68 65 61 | 70 5f 6e 65 78 74 66 72 |r%>._hea|p_nextfr|
|00005c10| 65 65 20 8c 20 85 20 31 | 32 39 2c 22 42 6c 6f 63 |ee . . 1|29,"Bloc|
|00005c20| 6b 20 62 65 79 6f 6e 64 | 20 68 65 61 70 20 6c 69 |k beyond| heap li|
|00005c30| 6d 69 74 73 22 0d 24 90 | 24 6e 65 77 73 69 7a 65 |mits".$.|$newsize|
|00005c40| 25 3d a4 5f 68 65 61 70 | 5f 77 6f 72 64 75 70 28 |%=._heap|_wordup(|
|00005c50| 6e 65 77 73 69 7a 65 25 | 29 0d 24 9a 48 c8 99 20 |newsize%|).$.H.. |
|00005c60| 22 53 6c 69 64 69 6e 67 | 48 65 61 70 5f 44 65 73 |"Sliding|Heap_Des|
|00005c70| 63 72 69 62 65 42 6c 6f | 63 6b 22 2c 73 6c 69 64 |cribeBlo|ck",slid|
|00005c80| 69 6e 67 68 65 61 70 62 | 61 73 65 25 2c 61 6e 63 |ingheapb|ase%,anc|
|00005c90| 68 6f 72 25 20 b8 20 2c | 2c 6f 6c 64 73 69 7a 65 |hor% . ,|,oldsize|
|00005ca0| 25 0d 24 a4 1d 6c 61 72 | 67 65 72 25 3d 6e 65 77 |%.$..lar|ger%=new|
|00005cb0| 73 69 7a 65 25 3e 6f 6c | 64 73 69 7a 65 25 0d 24 |size%>ol|dsize%.$|
|00005cc0| ae 0f e7 20 6c 61 72 67 | 65 72 25 20 8c 0d 24 b8 |... larg|er% ..$.|
|00005cd0| 48 20 20 20 74 72 79 73 | 69 7a 65 25 3d a4 5f 68 |H   trys|ize%=._h|
|00005ce0| 65 61 70 5f 70 61 67 65 | 75 70 28 a4 5f 68 65 61 |eap_page|up(._hea|
|00005cf0| 70 5f 6e 65 78 74 66 72 | 65 65 2b 28 6e 65 77 73 |p_nextfr|ee+(news|
|00005d00| 69 7a 65 25 2d 6f 6c 64 | 73 69 7a 65 25 29 2d 26 |ize%-old|size%)-&|
|00005d10| 37 46 46 43 29 0d 24 c2 | 21 20 20 20 e7 20 74 72 |7FFC).$.|!   . tr|
|00005d20| 79 73 69 7a 65 25 3e 68 | 65 61 70 5f 74 72 69 67 |ysize%>h|eap_trig|
|00005d30| 67 65 72 25 20 8c 0d 24 | cc 20 20 20 20 20 20 20 |ger% ..$|.       |
|00005d40| f2 73 65 74 73 6c 6f 74 | 73 69 7a 65 28 74 72 79 |.setslot|size(try|
|00005d50| 73 69 7a 65 25 29 0d 24 | d6 26 20 20 20 20 20 20 |size%).$|.&      |
|00005d60| e7 20 a4 5f 68 65 61 70 | 5f 73 6c 6f 74 73 69 7a |. ._heap|_slotsiz|
|00005d70| 65 3c 74 72 79 73 69 7a | 65 25 20 8c 0d 24 e0 28 |e<trysiz|e% ..$.(|
|00005d80| 20 20 20 20 20 20 20 20 | 20 f2 73 65 74 73 6c 6f |        | .setslo|
|00005d90| 74 73 69 7a 65 28 68 65 | 61 70 5f 74 72 69 67 67 |tsize(he|ap_trigg|
|00005da0| 65 72 25 29 0d 24 ea 40 | 20 20 20 20 20 20 20 20 |er%).$.@|        |
|00005db0| 20 85 20 31 33 32 2c 22 | 4e 6f 74 20 65 6e 6f 75 | . 132,"|Not enou|
|00005dc0| 67 68 20 72 6f 6f 6d 20 | 74 6f 20 65 78 74 65 6e |gh room |to exten|
|00005dd0| 64 20 62 6c 6f 63 6b 20 | 23 22 2b c3 7e 61 6e 63 |d block |#"+.~anc|
|00005de0| 68 6f 72 25 0d 24 f4 0b | 20 20 20 20 20 20 cc 0d |hor%.$..|      ..|
|00005df0| 24 fe 23 20 20 20 20 20 | 20 20 20 20 68 65 61 70 |$.#     |    heap|
|00005e00| 5f 74 72 69 67 67 65 72 | 25 3d 74 72 79 73 69 7a |_trigger|%=trysiz|
|00005e10| 65 25 0d 25 08 0b 20 20 | 20 20 20 20 cd 0d 25 12 |e%.%..  |    ..%.|
|00005e20| 08 20 20 20 cd 0d 25 1c | 05 cd 0d 25 26 42 c8 99 |.   ..%.|...%&B..|
|00005e30| 20 22 53 6c 69 64 69 6e | 67 48 65 61 70 5f 45 78 | "Slidin|gHeap_Ex|
|00005e40| 74 65 6e 64 42 6c 6f 63 | 6b 22 2c 73 6c 69 64 69 |tendBloc|k",slidi|
|00005e50| 6e 67 68 65 61 70 62 61 | 73 65 25 2c 61 6e 63 68 |ngheapba|se%,anch|
|00005e60| 6f 72 25 2c 6e 65 77 73 | 69 7a 65 25 0d 25 30 31 |or%,news|ize%.%01|
|00005e70| 74 72 79 73 69 7a 65 25 | 3d a4 5f 68 65 61 70 5f |trysize%|=._heap_|
|00005e80| 70 61 67 65 75 70 28 a4 | 5f 68 65 61 70 5f 6e 65 |pageup(.|_heap_ne|
|00005e90| 78 74 66 72 65 65 2d 26 | 37 46 46 43 29 0d 25 3a |xtfree-&|7FFC).%:|
|00005ea0| 1f e7 20 74 72 79 73 69 | 7a 65 25 3c 3e 68 65 61 |.. trysi|ze%<>hea|
|00005eb0| 70 5f 74 72 69 67 67 65 | 72 25 20 8c 0d 25 44 1d |p_trigge|r% ..%D.|
|00005ec0| 20 20 20 f2 73 65 74 73 | 6c 6f 74 73 69 7a 65 28 |   .sets|lotsize(|
|00005ed0| 74 72 79 73 69 7a 65 25 | 29 0d 25 4e 1d 20 20 20 |trysize%|).%N.   |
|00005ee0| 68 65 61 70 5f 74 72 69 | 67 67 65 72 25 3d 74 72 |heap_tri|gger%=tr|
|00005ef0| 79 73 69 7a 65 25 0d 25 | 58 05 cd 0d 25 62 30 c8 |ysize%.%|X...%b0.|
|00005f00| 99 20 22 53 6c 69 64 69 | 6e 67 48 65 61 70 5f 56 |. "Slidi|ngHeap_V|
|00005f10| 65 72 69 66 79 48 65 61 | 70 22 2c 73 6c 69 64 69 |erifyHea|p",slidi|
|00005f20| 6e 67 68 65 61 70 62 61 | 73 65 25 0d 25 6c 05 e1 |ngheapba|se%.%l..|
|00005f30| 0d 25 76 05 3a 0d 25 80 | 16 dd 20 a4 5f 68 65 61 |.%v.:.%.|.. ._hea|
|00005f40| 70 5f 62 79 74 65 73 28 | 62 25 29 0d 25 8a 0a ea |p_bytes(|b%).%...|
|00005f50| 20 65 6e 64 25 0d 25 94 | 3e c8 99 20 22 4f 53 5f | end%.%.|>.. "OS_|
|00005f60| 43 6f 6e 76 65 72 74 46 | 69 78 65 64 46 69 6c 65 |ConvertF|ixedFile|
|00005f70| 53 69 7a 65 22 2c 62 25 | 2c 62 6c 6f 63 6b 25 2c |Size",b%|,block%,|
|00005f80| 62 6c 6f 63 6b 25 2b 26 | 31 30 30 20 b8 20 2c 65 |block%+&|100 . ,e|
|00005f90| 6e 64 25 0d 25 9e 0c 3f | 65 6e 64 25 3d 31 33 0d |nd%.%..?|end%=13.|
|00005fa0| 25 a8 0c 3d 24 62 6c 6f | 63 6b 25 0d 25 b2 05 3a |%..=$blo|ck%.%..:|
|00005fb0| 0d 25 bc 17 dd 20 a4 5f | 68 65 61 70 5f 62 79 74 |.%... ._|heap_byt|
|00005fc0| 65 73 32 28 62 25 29 0d | 25 c6 0a ea 20 65 6e 64 |es2(b%).|%... end|
|00005fd0| 25 0d 25 d0 39 c8 99 20 | 22 4f 53 5f 43 6f 6e 76 |%.%.9.. |"OS_Conv|
|00005fe0| 65 72 74 46 69 6c 65 53 | 69 7a 65 22 2c 62 25 2c |ertFileS|ize",b%,|
|00005ff0| 62 6c 6f 63 6b 25 2c 62 | 6c 6f 63 6b 25 2b 26 31 |block%,b|lock%+&1|
|00006000| 30 30 20 b8 20 2c 65 6e | 64 25 0d 25 da 0c 3f 65 |00 . ,en|d%.%..?e|
|00006010| 6e 64 25 3d 31 33 0d 25 | e4 0c 3d 24 62 6c 6f 63 |nd%=13.%|..=$bloc|
|00006020| 6b 25 0d 25 ee 05 3a 0d | 25 f8 20 dd 20 a4 63 72 |k%.%..:.|%. . .cr|
|00006030| 65 61 74 65 5f 66 69 78 | 65 64 5f 62 6c 6f 63 6b |eate_fix|ed_block|
|00006040| 28 73 69 7a 65 25 29 0d | 26 02 14 ea 20 70 6f 69 |(size%).|&... poi|
|00006050| 6e 74 65 72 25 2c 66 6c | 61 67 25 0d 26 0c 3c c8 |nter%,fl|ag%.&.<.|
|00006060| 99 20 22 58 4f 53 5f 48 | 65 61 70 22 2c 32 2c 66 |. "XOS_H|eap",2,f|
|00006070| 69 78 65 64 68 65 61 70 | 62 61 73 65 25 2c 2c 73 |ixedheap|base%,,s|
|00006080| 69 7a 65 25 20 b8 20 2c | 2c 70 6f 69 6e 74 65 72 |ize% . ,|,pointer|
|00006090| 25 3b 66 6c 61 67 25 0d | 26 16 10 c8 95 20 66 6c |%;flag%.|&.... fl|
|000060a0| 61 67 25 20 80 20 31 0d | 26 20 14 f2 65 78 74 65 |ag% . 1.|& ..exte|
|000060b0| 6e 64 66 69 78 65 64 68 | 65 61 70 0d 26 2a 3c c8 |ndfixedh|eap.&*<.|
|000060c0| 99 20 22 58 4f 53 5f 48 | 65 61 70 22 2c 32 2c 66 |. "XOS_H|eap",2,f|
|000060d0| 69 78 65 64 68 65 61 70 | 62 61 73 65 25 2c 2c 73 |ixedheap|base%,,s|
|000060e0| 69 7a 65 25 20 b8 20 2c | 2c 70 6f 69 6e 74 65 72 |ize% . ,|,pointer|
|000060f0| 25 3b 66 6c 61 67 25 0d | 26 34 05 ce 0d 26 3e 0d |%;flag%.|&4...&>.|
|00006100| 3d 70 6f 69 6e 74 65 72 | 25 0d 26 48 05 3a 0d 26 |=pointer|%.&H.:.&|
|00006110| 52 16 dd 20 f2 65 78 74 | 65 6e 64 66 69 78 65 64 |R.. .ext|endfixed|
|00006120| 68 65 61 70 0d 26 5c 1c | ea 20 6e 73 68 62 25 2c |heap.&\.|. nshb%,|
|00006130| 65 78 74 65 6e 64 25 2c | 74 72 79 73 69 7a 65 25 |extend%,|trysize%|
|00006140| 0d 26 66 24 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d |.&f$.. "|OS_ReadM|
|00006150| 65 6d 4d 61 70 49 6e 66 | 6f 22 20 b8 20 65 78 74 |emMapInf|o" . ext|
|00006160| 65 6e 64 25 0d 26 70 24 | 74 72 79 73 69 7a 65 25 |end%.&p$|trysize%|
|00006170| 3d a4 5f 68 65 61 70 5f | 73 6c 6f 74 73 69 7a 65 |=._heap_|slotsize|
|00006180| 2b 65 78 74 65 6e 64 25 | 0d 26 7a 1a f2 73 65 74 |+extend%|.&z..set|
|00006190| 73 6c 6f 74 73 69 7a 65 | 28 74 72 79 73 69 7a 65 |slotsize|(trysize|
|000061a0| 25 29 0d 26 84 45 e7 20 | a4 5f 68 65 61 70 5f 73 |%).&.E. |._heap_s|
|000061b0| 6c 6f 74 73 69 7a 65 3c | 74 72 79 73 69 7a 65 25 |lotsize<|trysize%|
|000061c0| 20 8c 20 85 20 32 35 35 | 2c 22 4e 6f 20 72 6f 6f | . . 255|,"No roo|
|000061d0| 6d 20 74 6f 20 65 78 74 | 65 6e 64 20 66 69 78 65 |m to ext|end fixe|
|000061e0| 64 20 68 65 61 70 22 0d | 26 8e 22 6e 73 68 62 25 |d heap".|&."nshb%|
|000061f0| 3d 73 6c 69 64 69 6e 67 | 68 65 61 70 62 61 73 65 |=sliding|heapbase|
|00006200| 25 2b 65 78 74 65 6e 64 | 25 0d 26 98 35 c8 99 20 |%+extend|%.&.5.. |
|00006210| 22 53 6c 69 64 69 6e 67 | 48 65 61 70 5f 53 68 69 |"Sliding|Heap_Shi|
|00006220| 66 74 48 65 61 70 22 2c | 73 6c 69 64 69 6e 67 68 |ftHeap",|slidingh|
|00006230| 65 61 70 62 61 73 65 25 | 2c 6e 73 68 62 25 0d 26 |eapbase%|,nshb%.&|
|00006240| a2 2a c8 99 20 22 4f 53 | 5f 48 65 61 70 22 2c 35 |.*.. "OS|_Heap",5|
|00006250| 2c 66 69 78 65 64 68 65 | 61 70 62 61 73 65 25 2c |,fixedhe|apbase%,|
|00006260| 2c 65 78 74 65 6e 64 25 | 0d 26 ac 1b 66 69 78 65 |,extend%|.&..fixe|
|00006270| 64 68 65 61 70 73 69 7a | 65 25 2b 3d 65 78 74 65 |dheapsiz|e%+=exte|
|00006280| 6e 64 25 0d 26 b6 1a 73 | 6c 69 64 69 6e 67 68 65 |nd%.&..s|lidinghe|
|00006290| 61 70 62 61 73 65 25 3d | 6e 73 68 62 25 0d 26 c0 |apbase%=|nshb%.&.|
|000062a0| 30 c8 99 20 22 53 6c 69 | 64 69 6e 67 48 65 61 70 |0.. "Sli|dingHeap|
|000062b0| 5f 56 65 72 69 66 79 48 | 65 61 70 22 2c 73 6c 69 |_VerifyH|eap",sli|
|000062c0| 64 69 6e 67 68 65 61 70 | 62 61 73 65 25 0d 26 ca |dingheap|base%.&.|
|000062d0| 05 e1 0d 26 d4 06 20 3a | 0d 26 de 48 20 f4 20 2d |...&.. :|.&.H . -|
|000062e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000062f0| 2d 20 4c 69 73 74 20 6f | 75 74 70 75 74 20 74 6f |- List o|utput to|
|00006300| 20 73 63 72 65 65 6e 20 | 2d 2d 2d 2d 2d 2d 2d 2d | screen |--------|
|00006310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006320| 0d 26 e8 06 20 3a 0d 26 | f2 12 20 dd 20 f2 73 74 |.&.. :.&|.. . .st|
|00006330| 61 72 74 5f 6c 69 73 74 | 0d 26 fc 3c 20 74 65 78 |art_list|.&.< tex|
|00006340| 74 62 6c 6f 63 6b 73 69 | 7a 65 25 3d 35 30 2a 4c |tblocksi|ze%=50*L|
|00006350| 65 6e 4c 69 6e 65 25 3a | 74 65 78 74 62 6c 6f 63 |enLine%:|textbloc|
|00006360| 6b 69 6e 63 25 3d 74 65 | 78 74 62 6c 6f 63 6b 73 |kinc%=te|xtblocks|
|00006370| 69 7a 65 25 0d 27 06 3c | 20 f2 65 78 74 65 6e 64 |ize%.'.<| .extend|
|00006380| 5f 6e 61 6d 65 64 5f 73 | 6c 69 64 69 6e 67 5f 62 |_named_s|liding_b|
|00006390| 6c 6f 63 6b 28 74 65 78 | 74 61 6e 63 68 6f 72 25 |lock(tex|tanchor%|
|000063a0| 2c 74 65 78 74 62 6c 6f | 63 6b 73 69 7a 65 25 29 |,textblo|cksize%)|
|000063b0| 0d 27 10 32 20 54 65 78 | 74 50 74 72 25 3d 21 74 |.'.2 Tex|tPtr%=!t|
|000063c0| 65 78 74 61 6e 63 68 6f | 72 25 3a 43 6f 75 6e 74 |extancho|r%:Count|
|000063d0| 25 3d 30 3a f2 6c 69 73 | 74 5f 6c 69 6e 65 28 22 |%=0:.lis|t_line("|
|000063e0| 22 29 0d 27 1a 06 20 e1 | 0d 27 24 06 20 3a 0d 27 |").'.. .|.'$. :.'|
|000063f0| 2e 1a 20 dd 20 f2 6c 69 | 73 74 5f 6c 69 6e 65 28 |.. . .li|st_line(|
+--------+-------------------------+-------------------------+--------+--------+